/ MacHack 1994 / MacHack 1994.toast / MacHack™ 1987-1994 / MacHack™ '90 / Source Code ƒ.sea / Source Code ƒ / Modula2 ƒ / DataStack Filer / DataStacks.MOD.o

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 4e 54 45 4e 56 3d 4d 61 | 69 6e 20 b6 0d 09 09 2d |NTENV=Ma|in ....-|
|00000010| 73 6e 20 25 41 35 49 6e | 69 74 3d 49 6e 69 74 20 |sn %A5In|it=Init |
|00000020| b6 0d 09 09 22 7b 4c 69 | 62 72 61 72 69 65 73 7d |...."{Li|braries}|
|00000030| 22 49 6e 74 65 72 66 61 | 63 65 2e 6f 20 b6 0d 09 |"Interfa|ce.o ...|
|00000040| 09 22 7b 4c 69 62 72 61 | 72 69 65 73 7d 22 52 75 |."{Libra|ries}"Ru|
|00000050| 6e 74 69 6d 65 2e 6f 20 | b6 0d 09 09 22 7b 4c 69 |ntime.o |...."{Li|
|00000060| 62 72 61 72 69 65 73 7d | 22 54 6f 6f 6c 4c 69 62 |braries}|"ToolLib|
|00000070| 73 2e 6f 20 b6 0d 09 09 | 22 7b 50 4c 69 62 72 61 |s.o ....|"{PLibra|
|00000080| 72 69 65 73 7d 22 50 61 | 73 6c 69 62 2e 6f 20 b6 |ries}"Pa|slib.o .|
|00000090| 0d 09 09 2d 6f 20 42 61 | 6b 65 0d 42 61 6b 65 2e |...-o Ba|ke.Bake.|
|000000a0| 70 2e 6f 09 c4 09 42 61 | 6b 65 2e 70 0d 09 50 61 |p.o...Ba|ke.p..Pa|
|000000b0| 73 63 61 6c 20 42 61 6b | 65 2e 70 0d 0d 0d 0d 46 |scal Bak|e.p....F|
|000000c0| 53 74 75 62 73 2e 61 2e | 6f 09 09 c4 09 46 53 74 |Stubs.a.|o....FSt|
|000000d0| 75 62 73 2e 61 0d 09 41 | 73 6d 20 46 53 74 75 62 |ubs.a..A|sm FStub|
|000000e0| 73 2e 61 0d 0d 0d 0d 43 | 6f 6f 6b 69 65 09 09 09 |s.a....C|ookie...|
|000000f0| c4 09 43 6f 6f 6b 69 65 | 2e 44 52 56 57 20 43 6f |..Cookie|.DRVW Co|
|00000100| 6f 6b 69 65 2e 72 0d 09 | 52 65 7a 20 2d 72 64 20 |okie.r..|Rez -rd |
|00000110| 2d 63 20 44 4d 4f 56 20 | 2d 74 20 44 46 49 4c 20 |-c DMOV |-t DFIL |
|00000120| 43 6f 6f 6b 69 65 2e 72 | 20 2d 6f 20 43 6f 6f 6b |Cookie.r| -o Cook|
|00000130| 69 65 0d 43 6f 6f 6b 69 | 65 2e 44 52 56 57 20 09 |ie.Cooki|e.DRVW .|
|00000140| c4 09 43 6f 6f 6b 69 65 | 2e 70 2e 6f 0d 09 4c 69 |..Cookie|.p.o..Li|
|00000150| 6e 6b 20 2d 77 20 2d 72 | 74 20 44 52 56 57 3d 30 |nk -w -r|t DRVW=0|
|00000160| 20 b6 0d 09 09 2d 73 67 | 20 43 6f 6f 6b 69 65 20 | ....-sg| Cookie |
|00000170| b6 0d 09 09 22 7b 4c 69 | 62 72 61 72 69 65 73 7d |...."{Li|braries}|
|00000180| 22 44 52 56 52 52 75 6e | 74 69 6d 65 2e 6f 09 23 |"DRVRRun|time.o.#|
|00000190| 20 54 68 69 73 20 6d 75 | 73 74 20 70 72 65 63 65 | This mu|st prece|
|000001a0| 65 64 20 43 6f 6f 6b 69 | 65 2e 70 2e 6f 20 b6 0d |ed Cooki|e.p.o ..|
|000001b0| 09 09 43 6f 6f 6b 69 65 | 2e 70 2e 6f 20 b6 0d 09 |..Cookie|.p.o ...|
|000001c0| 09 22 7b 4c 69 62 72 61 | 72 69 65 73 7d 22 49 6e |."{Libra|ries}"In|
|000001d0| 74 65 72 66 61 63 65 2e | 6f 20 b6 0d 09 09 22 7b |terface.|o ...."{|
|000001e0| 4c 69 62 72 61 72 69 65 | 73 7d 22 52 75 6e 54 69 |Librarie|s}"RunTi|
|000001f0| 6d 65 2e 6f 20 b6 0d 09 | 09 22 7b 50 4c 69 62 72 |me.o ...|."{PLibr|
|00000200| 61 72 69 65 73 7d 22 50 | 61 73 6c 69 62 2e 6f 20 |aries}"P|aslib.o |
|00000210| b6 0d 09 09 2d 6f 20 43 | 6f 6f 6b 69 65 2e 44 52 |....-o C|ookie.DR|
|00000220| 56 57 20 2d 63 20 22 3f | 3f 3f 3f 22 20 2d 74 20 |VW -c "?|???" -t |
|00000230| 22 3f 3f 3f 3f 22 0d 43 | 6f 6f 6b 69 65 2e 70 2e |"????".C|ookie.p.|
|00000240| 6f 09 09 c4 09 43 6f 6f | 6b 69 65 2e 70 0d 09 50 |o....Coo|kie.p..P|
|00000250| 61 73 63 61 6c 20 43 6f | 6f 6b 69 65 2e 70 0d 0d |ascal Co|okie.p..|
|00000260| 0d 42 65 65 70 49 6e 69 | 74 2e 61 2e 6f 09 c4 09 |.BeepIni|t.a.o...|
|00000270| 42 65 65 70 49 6e 69 74 | 2e 61 0d 09 41 73 6d 20 |BeepInit|.a..Asm |
|00000280| 42 65 65 70 49 6e 69 74 | 2e 61 20 2d 6f 20 42 65 |BeepInit|.a -o Be|
|00000290| 65 70 49 6e 69 74 2e 61 | 2e 6f 0d 0d 42 65 65 70 |epInit.a|.o..Beep|
|000002a0| 49 6e 69 74 2e 61 2e 78 | 09 c4 09 42 65 65 70 49 |Init.a.x|...BeepI|
|000002b0| 6e 69 74 2e 61 2e 6f 0d | 09 4c 69 6e 6b 20 b6 0d |nit.a.o.|.Link ..|
|000002c0| 09 09 2d 72 74 20 4d 79 | 49 6e 3d 30 20 b6 0d 09 |..-rt My|In=0 ...|
|000002d0| 09 2d 73 6e 20 4d 61 69 | 6e 3d 4d 79 49 6e 69 74 |.-sn Mai|n=MyInit|
|000002e0| 20 b6 0d 09 09 22 42 65 | 65 70 49 6e 69 74 2e 61 | ...."Be|epInit.a|
|000002f0| 2e 6f 22 20 b6 0d 09 09 | 2d 6f 20 42 65 65 70 49 |.o" ....|-o BeepI|
|00000300| 6e 69 74 2e 61 2e 78 0d | 0d 42 65 65 70 49 6e 69 |nit.a.x.|.BeepIni|
|00000310| 74 2e 70 2e 6f 09 c4 09 | 42 65 65 70 49 6e 69 74 |t.p.o...|BeepInit|
|00000320| 2e 70 0d 09 50 61 73 63 | 61 6c 20 42 65 65 70 49 |.p..Pasc|al BeepI|
|00000330| 6e 69 74 2e 70 0d 0d 42 | 65 65 70 49 6e 69 74 09 |nit.p..B|eepInit.|
|00000340| 09 c4 c4 09 42 65 65 70 | 49 6e 69 74 2e 70 2e 6f |....Beep|Init.p.o|
|00000350| 0d 09 4c 69 6e 6b 20 b6 | 0d 09 09 2d 72 74 20 49 |..Link .|...-rt I|
|00000360| 4e 49 54 3d 30 20 b6 0d | 09 09 2d 73 6e 20 4d 61 |NIT=0 ..|..-sn Ma|
|00000370| 69 6e 3d 4d 79 49 6e 69 | 74 20 b6 0d 09 09 22 42 |in=MyIni|t ...."B|
|00000380| 65 65 70 49 6e 69 74 2e | 70 2e 6f 22 20 b6 0d 09 |eepInit.|p.o" ...|
|00000390| 09 22 7b 4c 69 62 72 61 | 72 69 65 73 7d 49 6e 74 |."{Libra|ries}Int|
|000003a0| 65 72 66 61 63 65 2e 6f | 22 20 b6 0d 09 09 2d 6f |erface.o|" ....-o|
|000003b0| 20 42 65 65 70 49 6e 69 | 74 0d 0d 42 65 65 70 49 | BeepIni|t..BeepI|
|000003c0| 6e 69 74 09 09 c4 c4 20 | 42 65 65 70 49 6e 69 74 |nit.... |BeepInit|
|000003d0| 2e 61 2e 78 0d 09 52 65 | 7a 20 b6 0d 09 09 2d 61 |.a.x..Re|z ....-a|
|000003e0| 20 22 42 65 65 70 49 6e | 69 74 2e 61 2e 78 22 20 | "BeepIn|it.a.x" |
|000003f0| 2d 6f 20 42 65 65 70 49 | 6e 69 74 00 00 01 00 00 |-o BeepI|nit.....|
|00000400| 00 01 16 00 00 00 16 00 | 00 00 46 00 00 04 20 00 |........|..F... .|
|00000410| 00 04 3f ff ff fc 3f ff | ff 80 3f ff ff c0 3f ff |..?...?.|..?...?.|
|00000420| ff e0 3f ff ff f0 3f ff | ff f8 3f 14 50 65 72 6d |..?...?.|..?.Perm|
|00000430| 69 73 73 69 6f 6e 20 53 | 6c 69 70 2c 20 4a 61 79 |ission S|lip, Jay|
|00000440| 70 02 00 00 00 54 45 58 | 54 45 44 00 00 54 45 58 |p....TEX|TED..TEX|
|00000450| 54 45 44 49 54 01 00 00 | 00 00 c0 00 00 00 00 00 |TEDIT...|........|
|00000460| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 a2 9e 73 |........|.......s|
|00000470| 6e 00 00 01 cd 00 00 01 | 5c fc 3f ff ff fc 3f ff |n.......|\.?...?.|
|00000480| ff fc 3f ff ff fc 3f ff | ff fc 3f ff ff fc 3f ff |..?...?.|..?...?.|
|00000490| ff fc 3f ff ff fc 00 00 | 00 07 41 50 50 4c 00 01 |..?.....|..APPL..|
|000004a0| 00 00 00 00 07 44 32 43 | 31 00 02 00 00 00 00 07 |.....D2C|1.......|
|000004b0| 44 32 43 32 00 03 00 00 | 00 00 64 58 43 45 4c 00 |D2C2....|..dXCEL.|
|000004c0| 00 00 01 49 43 4e 23 00 | 09 00 01 64 0f 00 02 39 |...ICN#.|...d...9|
|000004d0| 19 00 03 4d 65 00 04 71 | 22 00 05 47 59 00 06 10 |...Me..q|"..GY...|
|000004e0| b0 00 07 09 81 00 08 6c | 15 00 09 6d e5 00 0a 75 |.......l|...m...u|
|000004f0| e0 46 52 45 46 00 09 00 | 01 78 67 00 00 00 0a 00 |.FREF...|.xg.....|
|00000500| 09 06 4d 6f 6e 61 63 6f | c6 00 00 00 04 00 06 00 |..Monaco|........|
|00000510| 08 00 00 01 00 00 00 01 | 16 00 00 00 16 00 00 00 |........|........|
|00000520| 46 00 2a 38 64 06 40 00 | 00 00 1c 00 46 00 01 45 |F.*8d.@.|....F..E|
|00000530| 46 4e 54 00 00 00 12 45 | 54 41 42 00 00 00 1e 03 |FNT....E|TAB.....|
|00000540| eb ff ff 00 00 00 00 00 | 2a 4c 94 03 ec ff ff 00 |........|*L......|
|00000550| 00 00 0e 00 2a 4c 84 49 | 2c 20 44 2e 20 4a 61 79 |....*L.I|, D. Jay|
|00000560| 20 4e 65 77 6d 61 6e 2c | 20 20 47 69 76 65 20 4d | Newman,|  Give M|
|00000570| 61 63 48 61 63 6b 20 70 | 65 72 6d 69 73 73 69 6f |acHack p|ermissio|
|00000580| 6e 20 74 6f 20 70 75 74 | 20 0d 74 68 65 20 66 6f |n to put| .the fo|
|00000590| 6c 6c 6f 77 69 6e 67 20 | 66 69 6c 65 73 20 6f 6e |llowing |files on|
|000005a0| 20 74 68 65 20 4d 61 63 | 48 61 63 6b 20 43 44 2d | the Mac|Hack CD-|
|000005b0| 52 4f 4d 0d 31 2e 20 20 | 42 61 6b 65 c5 0d 20 20 |ROM.1.  |Bake..  |
|000005c0| 20 20 20 20 20 28 41 6e | 79 20 66 69 6c 65 20 69 |     (An|y file i|
|000005d0| 6e 20 74 68 69 73 20 64 | 69 72 65 63 74 6f 72 79 |n this d|irectory|
|000005e0| 20 73 74 61 72 74 69 6e | 67 20 77 69 74 68 20 42 | startin|g with B|
|000005f0| 61 6b 65 29 0d 32 2e 20 | 20 43 6f 6f 6b 69 65 c5 |ake).2. | Cookie.|
|00000600| 0d 20 20 20 20 20 20 20 | 28 41 6e 79 20 66 69 6c |.       |(Any fil|
|00000610| 65 20 69 6e 20 74 68 69 | 73 20 64 69 72 65 63 74 |e in thi|s direct|
|00000620| 6f 72 79 20 73 74 61 72 | 74 69 6e 67 20 77 69 74 |ory star|ting wit|
|00000630| 68 20 43 6f 6f 6b 69 65 | 29 0d 33 2e 20 20 46 6f |h Cookie|).3.  Fo|
|00000640| 72 74 75 6e 65 73 0d 0d | 34 2e 20 20 46 6f 72 74 |rtunes..|4.  Fort|
|00000650| 75 6e 65 73 2e 52 61 77 | 0d 0d 35 2e 20 20 46 20 |unes.Raw|..5.  F |
|00000660| 45 64 69 74 6f 72 0d 20 | 20 20 20 20 20 20 28 41 |Editor. |      (A|
|00000670| 20 66 6f 72 74 75 6e 65 | 20 65 64 69 74 69 6e 67 | fortune| editing|
|00000680| 20 68 79 70 65 72 63 61 | 72 64 20 73 74 61 63 6b | hyperca|rd stack|
|00000690| 29 0d 36 2e 20 20 52 65 | 61 64 4d 65 0d 0d 37 2e |).6.  Re|adMe..7.|
|000006a0| 20 20 50 65 72 6d 69 73 | 73 69 6f 6e 20 53 6c 69 |  Permis|sion Sli|
|000006b0| 70 2c 20 4a 61 79 0d 0d | 38 2e 20 20 4d 61 6b 65 |p, Jay..|8.  Make|
|000006c0| 46 69 6c 65 0d 0d 39 2e | 0d 0d 31 30 2e 0d 0d 31 |File..9.|..10...1|
|000006d0| 31 2e 0d 0d 31 32 2e 0d | 0d 31 33 2e 0d 0d 31 34 |1...12..|.13...14|
|000006e0| 2e 0d 0d 31 35 2e 0d 0d | 31 36 2e 0d 0d 31 37 2e |...15...|16...17.|
|000006f0| 0d 0d 31 38 2e 0d 0d 31 | 39 2e 0d 0d 32 30 2e 0d |..18...1|9...20..|
|00000700| 0d 32 31 2e 0d 0d 32 32 | 2e 0d 0d 32 33 2e 0d 0d |.21...22|...23...|
|00000710| 32 34 2e 0d 0d 0d 53 69 | 67 6e 65 64 20 0d 0d 44 |24....Si|gned ..D|
|00000720| 61 74 65 3a 00 00 01 00 | 00 00 01 62 00 00 00 62 |ate:....|...b...b|
|00000730| 00 00 00 5a 6e 65 20 6e | 75 6d 62 65 72 0d 23 0d |...Zne n|umber.#.|
|00000740| 23 09 55 73 61 67 65 3a | 0d 23 09 09 4c 69 6e 65 |#.Usage:|.#..Line|
|00000750| 20 6e 0d 23 06 52 65 61 | 64 4d 65 52 02 00 00 00 | n.#.Rea|dMeR....|
|00000760| 54 45 58 54 4d 50 53 20 | 01 00 00 14 00 c0 00 00 |TEXTMPS |........|
|00000770| 00 00 9e e0 00 00 54 45 | 58 54 4d 50 53 20 01 00 |......TE|XTMPS ..|
|00000780| 00 14 00 c0 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000790| 00 00 00 00 00 00 a2 9e | 6c 0e 00 00 0e cf 00 00 |........|l.......|
|000007a0| 01 bc 69 76 65 20 28 74 | 6f 70 6d 6f 73 74 29 20 |..ive (t|opmost) |
|000007b0| 77 69 6e 64 6f 77 2e 0d | 23 0d 23 09 43 6f 70 79 |window..|#.#.Copy|
|000007c0| 72 69 67 68 74 20 41 70 | 70 6c 65 20 43 6f 6d 70 |right Ap|ple Comp|
|000007d0| 75 74 65 72 2c 20 49 6e | 63 2e 20 31 39 38 36 2d |uter, In|c. 1986-|
|000007e0| 31 39 38 37 0d 23 09 41 | 6c 6c 20 72 69 67 68 74 |1987.#.A|ll right|
|000007f0| 73 20 72 65 73 65 72 76 | 65 64 2e 0d 0d 46 69 6e |s reserv|ed...Fin|
|00000800| 64 20 22 7b 31 7d 22 20 | 22 7b 54 61 72 67 65 74 |d "{1}" |"{Target|
|00000810| 7d 22 0d 4f 70 65 6e 20 | 22 7b 54 61 72 67 65 74 |}".Open |"{Target|
|00000820| 7d 22 0d 52 00 00 00 48 | 00 09 4d 6f 6e 61 63 6f |}".R...H|..Monaco|
|00000830| 00 0d 0d 54 68 69 73 20 | 69 73 20 61 62 6f 75 74 |...This |is about|
|00000840| 20 6d 79 20 43 6f 6f 6b | 69 65 00 06 00 04 00 3c | my Cook|ie.....<|
|00000850| 00 24 01 dd 02 3d 00 3c | 00 24 01 dd 02 3d a2 9e |.$...=.<|.$...=..|
|00000860| 71 43 00 00 00 30 00 00 | 00 30 00 00 00 00 01 00 |qC...0..|.0......|
|00000870| 00 00 00 0a 00 09 06 4d | 6f 6e 61 63 6f 54 00 00 |.......M|onacoT..|
|00000880| 00 04 00 06 00 08 00 00 | 01 00 00 00 01 62 00 00 |........|.....b..|
|00000890| 00 62 00 00 00 5a 00 30 | 2f 7c 06 40 00 00 00 1c |.b...Z.0|/|.@....|
|000008a0| 00 5a 00 02 4d 50 53 52 | 00 00 00 1a 45 46 4e 54 |.Z..MPSR|....EFNT|
|000008b0| 00 00 00 26 45 54 41 42 | 00 00 00 32 03 ed ff ff |...&ETAB|...2....|
|000008c0| 00 00 00 00 00 00 00 00 | 03 eb ff ff 00 00 00 4c |........|.......L|
|000008d0| 00 30 43 cc 03 ec ff ff | 00 00 00 5a 00 30 43 7c |.0C.....|...Z.0C||
|000008e0| 09 09 09 09 09 09 09 09 | 44 2e 20 4a 61 79 20 4e |........|D. Jay N|
|000008f0| 65 77 6d 61 6e 0d 09 09 | 09 09 09 09 09 09 64 6e |ewman...|......dn|
|00000900| 35 40 70 73 75 76 6d 2e | 70 73 75 2e 65 64 75 0d |5@psuvm.|psu.edu.|
|00000910| 0d 0d 48 69 3a 0d 0d 54 | 68 69 73 20 69 73 20 61 |..Hi:..T|his is a|
|00000920| 62 6f 75 74 20 6d 79 20 | 43 6f 6f 6b 69 65 20 44 |bout my |Cookie D|
|00000930| 41 2e 20 20 49 74 20 69 | 73 20 62 61 73 69 63 61 |A.  It i|s basica|
|00000940| 6c 6c 79 20 74 68 65 20 | 62 65 73 74 20 46 6f 72 |lly the |best For|
|00000950| 74 75 6e 65 20 43 6f 6f | 6b 69 65 0d 6f 66 20 61 |tune Coo|kie.of a|
|00000960| 6e 79 20 74 79 70 65 20 | 61 76 61 69 6c 61 62 6c |ny type |availabl|
|00000970| 65 20 66 6f 72 20 74 68 | 65 20 4d 61 63 20 28 49 |e for th|e Mac (I|
|00000980| 20 73 61 79 20 74 68 69 | 73 20 65 76 65 6e 20 74 | say thi|s even t|
|00000990| 68 6f 75 67 68 20 49 20 | 77 72 6f 74 65 20 69 74 |hough I |wrote it|
|000009a0| 2c 0d 62 65 63 61 75 73 | 65 20 49 20 61 6d 20 61 |,.becaus|e I am a|
|000009b0| 20 6d 6f 64 65 73 74 20 | 73 6f 72 74 20 6f 66 20 | modest |sort of |
|000009c0| 67 75 79 29 2e 20 20 49 | 74 20 69 73 20 66 61 73 |guy).  I|t is fas|
|000009d0| 74 2c 20 61 6e 64 20 72 | 75 6e 73 20 6f 6e 20 61 |t, and r|uns on a|
|000009e0| 6c 6c 20 4d 61 63 27 73 | 0d 49 27 76 65 20 74 65 |ll Mac's|.I've te|
|000009f0| 73 74 65 64 20 69 74 20 | 6f 6e 2e 20 20 49 74 20 |sted it |on.  It |
|00000a00| 61 6c 73 6f 20 69 6e 63 | 6c 75 64 65 73 20 61 20 |also inc|ludes a |
|00000a10| 36 30 30 6b 20 46 6f 72 | 74 75 6e 65 20 66 69 6c |600k For|tune fil|
|00000a20| 65 2e 0d 0d 46 65 61 74 | 75 72 65 73 3a 0d 0d 49 |e...Feat|ures:..I|
|00000a30| 74 73 20 61 20 44 41 2c | 20 73 6f 20 63 61 6e 20 |ts a DA,| so can |
|00000a40| 62 65 20 63 61 6c 6c 65 | 64 20 66 72 6f 6d 20 61 |be calle|d from a|
|00000a50| 6e 20 41 70 70 20 69 66 | 20 79 6f 75 20 66 65 65 |n App if| you fee|
|00000a60| 6c 20 69 6e 20 74 68 65 | 20 6e 65 65 64 20 6f 66 |l in the| need of|
|00000a70| 20 77 61 73 74 69 6e 67 | 0d 61 20 66 65 77 20 73 | wasting|.a few s|
|00000a80| 65 63 6f 6e 64 73 2e 0d | 0d 41 20 6c 61 72 67 65 |econds..|.A large|
|00000a90| 20 66 6f 72 74 75 6e 65 | 20 66 69 6c 65 2c 20 67 | fortune| file, g|
|00000aa0| 61 74 68 65 72 65 64 20 | 66 72 6f 6d 20 74 68 65 |athered |from the|
|00000ab0| 20 6e 65 74 20 28 61 6e | 64 20 6f 74 68 65 72 20 | net (an|d other |
|00000ac0| 70 6c 61 63 65 73 29 2e | 20 20 49 20 77 6f 75 6c |places).|  I woul|
|00000ad0| 64 0d 6c 69 6b 65 20 74 | 6f 20 74 68 61 6e 6b 20 |d.like t|o thank |
|00000ae0| 48 65 6e 72 79 20 43 61 | 74 65 20 49 49 49 2c 20 |Henry Ca|te III, |
|00000af0| 62 65 63 61 75 73 65 20 | 49 20 67 6f 74 20 73 6f |because |I got so|
|00000b00| 6d 65 20 6f 66 20 6d 79 | 20 73 68 6f 72 74 20 71 |me of my| short q|
|00000b10| 75 6f 74 65 73 20 66 72 | 6f 6d 0d 68 69 73 20 70 |uotes fr|om.his p|
|00000b20| 6f 73 74 69 6e 67 73 2c | 20 61 6e 64 20 49 20 77 |ostings,| and I w|
|00000b30| 6f 75 6c 64 20 61 6c 73 | 6f 20 6c 69 6b 65 20 74 |ould als|o like t|
|00000b40| 6f 20 74 68 61 6e 6b 20 | 6d 61 6e 79 20 6f 74 68 |o thank |many oth|
|00000b50| 65 72 20 70 65 6f 70 6c | 65 2c 20 74 6f 6f 20 6e |er peopl|e, too n|
|00000b60| 75 6d 65 72 6f 75 73 0d | 74 6f 20 6e 61 6d 65 2e |umerous.|to name.|
|00000b70| 0d 0d 54 68 65 20 77 69 | 6e 64 6f 77 20 69 73 20 |..The wi|ndow is |
|00000b80| 72 65 73 69 7a 61 62 6c | 65 2c 20 61 6e 64 20 74 |resizabl|e, and t|
|00000b90| 68 65 20 66 6f 72 74 75 | 6e 65 73 20 77 69 6c 6c |he fortu|nes will|
|00000ba0| 20 72 65 2d 77 72 61 70 | 20 74 6f 20 63 6f 6e 66 | re-wrap| to conf|
|00000bb0| 6f 72 6d 20 74 6f 20 74 | 68 65 0d 73 69 7a 65 20 |orm to t|he.size |
|00000bc0| 6f 66 20 74 68 65 20 77 | 69 6e 64 6f 77 2e 20 20 |of the w|indow.  |
|00000bd0| 4d 6f 73 74 20 6f 66 20 | 74 68 65 6d 20 6c 6f 6f |Most of |them loo|
|00000be0| 6b 20 67 6f 6f 64 20 74 | 68 69 73 20 77 61 79 2e |k good t|his way.|
|00000bf0| 20 20 53 6f 6d 65 20 6f | 66 20 74 68 65 6d 0d 28 |  Some o|f them.(|
|00000c00| 6d 61 69 6e 6c 79 20 73 | 69 67 6e 69 74 75 72 65 |mainly s|igniture|
|00000c10| 73 20 74 61 6b 65 6e 20 | 66 72 6f 6d 20 74 68 65 |s taken |from the|
|00000c20| 20 6e 65 74 29 20 61 72 | 65 20 64 65 73 69 67 6e | net) ar|e design|
|00000c30| 65 64 20 66 6f 72 20 61 | 20 66 69 78 65 64 20 73 |ed for a| fixed s|
|00000c40| 69 7a 65 0d 77 69 6e 64 | 6f 77 2c 20 61 6e 64 20 |ize.wind|ow, and |
|00000c50| 6c 6f 6f 6b 20 62 61 64 | 20 69 66 20 74 68 65 20 |look bad| if the |
|00000c60| 77 69 6e 64 6f 77 20 69 | 73 20 6d 61 64 65 20 73 |window i|s made s|
|00000c70| 6d 61 6c 6c 65 72 20 2d | 2d 20 49 20 70 75 74 20 |maller -|- I put |
|00000c80| 68 61 72 64 20 72 65 74 | 75 72 6e 73 0d 69 6e 20 |hard ret|urns.in |
|00000c90| 74 68 65 73 65 20 73 69 | 67 6e 69 74 75 72 65 73 |these si|gnitures|
|00000ca0| 20 62 65 63 61 75 73 65 | 20 74 68 61 74 20 77 61 | because| that wa|
|00000cb0| 73 20 68 6f 77 20 74 68 | 65 79 20 77 65 72 65 20 |s how th|ey were |
|00000cc0| 6f 72 69 67 69 6e 61 6c | 6c 79 29 2e 0d 0d 54 68 |original|ly)...Th|
|00000cd0| 65 20 44 41 20 72 65 6d | 65 6d 62 65 72 73 20 77 |e DA rem|embers w|
|00000ce0| 68 65 72 65 20 79 6f 75 | 72 20 77 69 6e 64 6f 77 |here you|r window|
|00000cf0| 20 77 61 73 2c 20 61 6e | 64 20 68 6f 77 20 62 69 | was, an|d how bi|
|00000d00| 67 20 69 74 20 77 61 73 | 20 62 65 74 77 65 65 6e |g it was| between|
|00000d10| 20 69 6e 76 6f 63 61 74 | 69 6f 6e 73 2e 0d 44 69 | invocat|ions..Di|
|00000d20| 73 63 6c 61 69 6d 65 72 | 3a 20 69 74 20 77 6f 72 |sclaimer|: it wor|
|00000d30| 6b 73 20 66 69 6e 65 20 | 61 74 20 68 6f 6d 65 20 |ks fine |at home |
|00000d40| 62 65 74 77 65 65 6e 20 | 72 65 73 74 61 72 74 73 |between |restarts|
|00000d50| 2c 20 62 75 74 20 66 61 | 6c 6c 73 20 74 6f 20 69 |, but fa|lls to i|
|00000d60| 74 73 20 64 65 66 61 75 | 6c 74 0d 73 69 7a 65 20 |ts defau|lt.size |
|00000d70| 61 6e 64 20 70 6f 73 69 | 74 69 6f 6e 20 61 66 74 |and posi|tion aft|
|00000d80| 65 72 20 61 20 72 65 73 | 74 61 72 74 20 6f 6e 20 |er a res|tart on |
|00000d90| 74 68 65 20 4d 61 63 20 | 49 49 63 78 27 73 20 68 |the Mac |IIcx's h|
|00000da0| 65 72 65 2e 20 20 49 20 | 57 49 4c 4c 20 66 69 78 |ere.  I |WILL fix|
|00000db0| 20 74 68 69 73 2c 0d 62 | 75 74 20 63 6f 75 6c 64 | this,.b|ut could|
|00000dc0| 6e 27 74 20 66 69 6e 64 | 20 4d 50 57 20 50 61 73 |n't find| MPW Pas|
|00000dd0| 63 61 6c 20 68 65 72 65 | 20 74 6f 20 64 6f 20 74 |cal here| to do t|
|00000de0| 68 69 73 21 20 20 49 74 | 20 61 6c 73 6f 20 6c 6f |his!  It| also lo|
|00000df0| 6f 6b 73 20 75 67 6c 79 | 20 74 68 65 20 66 69 72 |oks ugly| the fir|
|00000e00| 73 74 0d 74 69 6d 65 20 | 69 74 20 69 73 20 63 61 |st.time |it is ca|
|00000e10| 6c 6c 65 64 20 66 72 6f | 6d 20 53 79 73 74 65 6d |lled fro|m System|
|00000e20| 20 37 3b 20 49 20 77 69 | 6c 6c 20 66 69 78 20 74 | 7; I wi|ll fix t|
|00000e30| 68 69 73 20 61 6c 73 6f | 2e 0d 0d 49 6e 73 74 61 |his also|...Insta|
|00000e40| 6c 6c 61 74 69 6f 6e 3a | 0d 0d 49 6e 73 74 61 6c |llation:|..Instal|
|00000e50| 6c 20 74 68 65 20 44 41 | 2c 20 61 6e 64 20 70 75 |l the DA|, and pu|
|00000e60| 74 20 74 68 65 20 46 6f | 72 74 75 6e 65 73 20 66 |t the Fo|rtunes f|
|00000e70| 69 6c 65 20 69 6e 20 74 | 68 65 20 53 79 73 74 65 |ile in t|he Syste|
|00000e80| 6d 20 46 6f 6c 64 65 72 | 2e 20 20 42 61 64 20 74 |m Folder|.  Bad t|
|00000e90| 68 69 6e 67 73 0d 6d 61 | 79 20 68 61 70 70 65 6e |hings.ma|y happen|
|00000ea0| 20 69 66 20 69 74 20 63 | 61 6e 27 74 20 66 69 6e | if it c|an't fin|
|00000eb0| 64 20 69 74 73 20 46 6f | 72 74 75 6e 65 73 20 66 |d its Fo|rtunes f|
|00000ec0| 69 6c 65 2e 20 20 54 68 | 65 20 6e 61 6d 65 20 69 |ile.  Th|e name i|
|00000ed0| 73 20 68 61 72 64 2d 63 | 6f 64 65 64 20 3a 2d 28 |s hard-c|oded :-(|
|00000ee0| 2e 0d 0d 54 68 69 6e 67 | 73 20 66 6f 72 20 79 6f |...Thing|s for yo|
|00000ef0| 75 20 74 6f 20 64 6f 3a | 0d 0d 49 66 20 79 6f 75 |u to do:|..If you|
|00000f00| 20 68 61 76 65 20 4d 50 | 57 2c 20 79 6f 75 20 63 | have MP|W, you c|
|00000f10| 61 6e 20 61 64 64 20 6e | 65 77 20 66 6f 72 74 75 |an add n|ew fortu|
|00000f20| 6e 65 73 2c 20 61 6e 64 | 20 63 6f 72 72 65 63 74 |nes, and| correct|
|00000f30| 20 6d 79 20 73 70 65 6c | 6c 69 6e 67 20 6d 69 73 | my spel|ling mis|
|00000f40| 74 61 6b 65 73 21 0d 4d | 65 72 65 6c 79 20 65 64 |takes!.M|erely ed|
|00000f50| 69 74 20 74 68 65 20 66 | 69 6c 65 20 46 6f 72 74 |it the f|ile Fort|
|00000f60| 75 6e 65 73 2e 52 61 77 | 2c 20 61 6e 64 20 74 68 |unes.Raw|, and th|
|00000f70| 65 6e 20 72 65 62 61 6b | 65 20 74 68 65 20 63 6f |en rebak|e the co|
|00000f80| 6f 6b 69 65 73 2e 20 20 | 54 68 65 20 4d 50 57 20 |okies.  |The MPW |
|00000f90| 74 6f 6f 6c 0d 28 42 61 | 6b 65 29 2c 20 63 6f 6d |tool.(Ba|ke), com|
|00000fa0| 70 6c 65 74 65 20 77 69 | 74 68 20 73 6f 75 72 63 |plete wi|th sourc|
|00000fb0| 65 20 63 6f 64 65 2c 20 | 69 73 20 70 72 6f 76 69 |e code, |is provi|
|00000fc0| 64 65 64 20 66 6f 72 20 | 79 6f 75 72 20 70 6c 65 |ded for |your ple|
|00000fd0| 61 73 75 72 65 2e 20 20 | 54 68 65 0d 63 6f 72 72 |asure.  |The.corr|
|00000fe0| 65 63 74 20 63 6f 6d 6d | 61 6e 64 20 6c 69 6e 65 |ect comm|and line|
|00000ff0| 20 69 73 3a 0d 20 0d 20 | 20 20 20 20 42 61 6b 65 | is:. . |    Bake|
|00001000| 20 46 6f 72 74 75 6e 65 | 73 2e 52 61 77 20 46 6f | Fortune|s.Raw Fo|
|00001010| 72 74 75 6e 65 73 0d 0d | 54 68 65 6e 20 6d 6f 76 |rtunes..|Then mov|
|00001020| 65 20 74 68 65 20 6e 65 | 77 20 66 6f 72 74 75 6e |e the ne|w fortun|
|00001030| 65 73 20 66 69 6c 65 20 | 69 6e 74 6f 20 74 68 65 |es file |into the|
|00001040| 20 73 79 73 74 65 6d 20 | 66 6f 6c 64 65 72 2e 20 | system |folder. |
|00001050| 20 54 68 65 72 65 20 69 | 73 20 61 20 62 75 67 20 | There i|s a bug |
|00001060| 69 6e 0d 74 68 65 20 42 | 61 6b 65 20 74 6f 6f 6c |in.the B|ake tool|
|00001070| 20 74 68 61 74 20 69 6d | 70 72 6f 70 65 72 6c 79 | that im|properly|
|00001080| 20 63 72 65 61 74 65 73 | 20 74 68 65 20 6e 65 77 | creates| the new|
|00001090| 20 66 69 6c 65 20 69 66 | 20 61 6e 20 6f 6c 64 20 | file if| an old |
|000010a0| 46 6f 72 74 75 6e 65 73 | 20 66 69 6c 65 0d 65 78 |Fortunes| file.ex|
|000010b0| 69 73 74 73 2c 20 73 6f | 20 49 20 61 6c 77 61 79 |ists, so| I alway|
|000010c0| 73 20 64 65 6c 65 74 65 | 20 74 68 65 20 6f 6c 64 |s delete| the old|
|000010d0| 20 6f 6e 65 20 62 65 66 | 6f 72 65 20 62 61 6b 69 | one bef|ore baki|
|000010e0| 6e 67 20 61 20 6e 65 77 | 20 6f 6e 65 2e 20 20 49 |ng a new| one.  I|
|000010f0| 20 6d 61 79 20 68 61 76 | 65 0d 66 69 78 65 64 20 | may hav|e.fixed |
|00001100| 74 68 65 20 62 75 67 2c | 20 62 75 74 20 49 20 64 |the bug,| but I d|
|00001110| 6f 6e 27 74 20 72 65 6d | 65 6d 62 65 72 2e 0d 0d |on't rem|ember...|
|00001120| 0d 46 6f 72 6d 61 74 20 | 6f 66 20 46 6f 72 74 75 |.Format |of Fortu|
|00001130| 6e 65 73 2e 52 61 77 0d | 0d 54 68 65 20 42 61 6b |nes.Raw.|.The Bak|
|00001140| 65 20 74 6f 6f 6c 20 72 | 65 6d 6f 76 65 73 20 68 |e tool r|emoves h|
|00001150| 61 72 64 20 72 65 74 75 | 72 6e 73 20 69 6e 73 69 |ard retu|rns insi|
|00001160| 64 65 20 63 6f 6f 6b 69 | 65 73 20 69 66 20 74 68 |de cooki|es if th|
|00001170| 65 20 73 74 61 72 74 20 | 6f 66 20 74 68 65 20 6e |e start |of the n|
|00001180| 65 78 74 0d 6c 69 6e 65 | 20 73 74 61 72 74 73 20 |ext.line| starts |
|00001190| 77 69 74 68 20 61 6e 20 | 61 6c 70 68 61 20 63 68 |with an |alpha ch|
|000011a0| 61 72 61 63 74 65 72 20 | 28 70 6f 73 73 69 62 6c |aracter |(possibl|
|000011b0| 6c 79 20 61 6c 70 68 61 | 2d 6e 75 6d 65 72 69 63 |ly alpha|-numeric|
|000011c0| 29 2e 20 20 54 68 65 72 | 65 20 61 72 65 0d 61 20 |).  Ther|e are.a |
|000011d0| 66 65 77 20 73 70 65 63 | 69 61 6c 20 63 68 61 72 |few spec|ial char|
|000011e0| 61 63 74 65 72 73 20 61 | 63 63 65 70 74 65 64 20 |acters a|ccepted |
|000011f0| 74 6f 20 63 68 61 6e 67 | 65 20 74 68 69 73 20 62 |to chang|e this b|
|00001200| 65 68 61 76 69 6f 72 2e | 20 20 54 68 65 73 65 20 |ehavior.|  These |
|00001210| 6d 75 73 74 20 62 65 0d | 6f 6e 20 6c 69 6e 65 73 |must be.|on lines|
|00001220| 20 6f 66 20 74 68 65 69 | 72 20 6f 77 6e 2c 20 77 | of thei|r own, w|
|00001230| 69 74 68 20 4e 4f 20 65 | 78 74 72 61 20 63 68 61 |ith NO e|xtra cha|
|00001240| 72 61 63 74 65 72 73 21 | 0d 0d 25 25 09 09 45 6e |racters!|..%%..En|
|00001250| 64 20 6f 66 20 63 6f 6f | 6b 69 65 0d 24 24 09 09 |d of coo|kie.$$..|
|00001260| 4c 65 61 76 65 20 61 20 | 73 69 6e 67 6c 65 20 62 |Leave a |single b|
|00001270| 6c 61 6e 6b 20 6c 69 6e | 65 20 68 65 72 65 20 28 |lank lin|e here (|
|00001280| 70 75 74 20 32 20 68 61 | 72 64 20 72 65 74 75 72 |put 2 ha|rd retur|
|00001290| 6e 73 20 68 65 72 65 29 | 0d 21 21 09 09 50 75 74 |ns here)|.!!..Put|
|000012a0| 20 61 20 68 61 72 64 20 | 72 65 74 75 72 6e 20 68 | a hard |return h|
|000012b0| 65 72 65 0d 0d 0d 48 79 | 70 65 72 43 61 72 64 3a |ere...Hy|perCard:|
|000012c0| 0d 0d 49 20 68 61 76 65 | 20 61 6c 73 6f 20 69 6e |..I have| also in|
|000012d0| 63 6c 75 64 65 64 20 61 | 20 48 79 70 65 72 43 61 |cluded a| HyperCa|
|000012e0| 72 64 20 58 43 4d 44 20 | 61 6e 64 20 73 74 61 63 |rd XCMD |and stac|
|000012f0| 6b 20 77 68 69 63 68 20 | 63 61 6e 20 75 6e 64 65 |k which |can unde|
|00001300| 72 73 74 61 6e 64 20 74 | 68 65 0d 66 6f 72 6d 61 |rstand t|he.forma|
|00001310| 74 20 6f 66 20 6d 79 20 | 63 6f 6f 6b 69 65 20 66 |t of my |cookie f|
|00001320| 69 6c 65 2c 20 61 6e 64 | 20 77 69 6c 6c 20 72 65 |ile, and| will re|
|00001330| 61 64 20 61 20 66 69 6c | 65 2e 20 20 49 74 20 74 |ad a fil|e.  It t|
|00001340| 6f 6f 6b 20 61 62 6f 75 | 74 20 32 30 20 6d 69 6e |ook abou|t 20 min|
|00001350| 75 74 65 73 0d 6f 6e 20 | 61 20 4d 61 63 20 49 49 |utes.on |a Mac II|
|00001360| 20 77 68 65 6e 20 6d 79 | 20 66 69 6c 65 20 77 61 | when my| file wa|
|00001370| 73 20 61 62 6f 75 74 20 | 32 2f 33 20 74 68 65 20 |s about |2/3 the |
|00001380| 70 72 65 73 65 6e 74 20 | 73 69 7a 65 20 74 6f 20 |present |size to |
|00001390| 63 72 65 61 74 65 20 74 | 68 69 73 0d 73 74 61 63 |create t|his.stac|
|000013a0| 6b 2e 20 20 49 74 20 69 | 73 20 74 68 65 20 6f 6e |k.  It i|s the on|
|000013b0| 6c 79 20 77 61 79 20 6f | 66 20 6c 6f 6f 6b 69 6e |ly way o|f lookin|
|000013c0| 67 20 61 74 20 41 4c 4c | 20 74 68 65 20 63 6f 6f |g at ALL| the coo|
|000013d0| 6b 69 65 73 20 77 69 74 | 68 6f 75 74 20 4d 50 57 |kies wit|hout MPW|
|000013e0| 2e 0d 0d 55 6e 66 6f 72 | 74 75 6e 61 74 65 6c 79 |...Unfor|tunately|
|000013f0| 20 49 20 73 74 6f 70 70 | 65 64 20 74 68 65 72 65 | I stopp|ed there|
|00001400| 2e 20 20 49 20 68 61 76 | 65 6e 27 74 20 77 72 69 |.  I hav|en't wri|
|00001410| 74 74 65 6e 20 61 6e 20 | 58 43 4d 44 20 74 6f 20 |tten an |XCMD to |
|00001420| 63 72 65 61 74 65 20 61 | 20 6e 65 77 0d 66 6f 72 |create a| new.for|
|00001430| 74 75 6e 65 20 66 69 6c | 65 20 66 72 6f 6d 20 61 |tune fil|e from a|
|00001440| 20 48 79 70 65 72 43 61 | 72 64 20 73 74 61 63 6b | HyperCa|rd stack|
|00001450| 2e 20 20 49 74 20 73 68 | 6f 75 6c 64 6e 27 74 20 |.  It sh|ouldn't |
|00001460| 62 65 20 74 6f 6f 20 68 | 61 72 64 2c 20 49 20 6a |be too h|ard, I j|
|00001470| 75 73 74 0d 68 61 76 65 | 6e 27 74 20 68 61 64 20 |ust.have|n't had |
|00001480| 74 69 6d 65 20 74 6f 20 | 64 6f 20 73 75 63 68 20 |time to |do such |
|00001490| 61 20 74 68 69 6e 67 2e | 0d 0d 0d 46 6f 72 6d 61 |a thing.|...Forma|
|000014a0| 74 20 6f 66 20 61 20 46 | 6f 72 74 75 6e 65 73 20 |t of a F|ortunes |
|000014b0| 66 69 6c 65 3a 0d 0d 3c | 6c 6f 6e 67 69 6e 74 3e |file:..<|longint>|
|000014c0| 09 09 09 4e 75 6d 62 65 | 72 20 6f 66 20 43 6f 6f |...Numbe|r of Coo|
|000014d0| 6b 69 65 73 0d 3c 6c 6f | 6e 67 69 6e 74 73 3e 09 |kies.<lo|ngints>.|
|000014e0| 09 09 41 20 6e 75 6d 62 | 65 72 20 6f 66 20 6c 6f |..A numb|er of lo|
|000014f0| 6e 67 69 6e 74 73 20 65 | 71 75 61 6c 20 74 6f 20 |ngints e|qual to |
|00001500| 74 68 65 20 6e 75 6d 62 | 65 72 20 6f 66 20 63 6f |the numb|er of co|
|00001510| 6f 6b 69 65 73 20 2b 20 | 31 0d 09 09 09 09 09 54 |okies + |1......T|
|00001520| 68 65 73 65 20 61 72 65 | 20 6f 66 66 73 65 74 73 |hese are| offsets|
|00001530| 20 66 72 6f 6d 20 74 68 | 65 20 73 74 61 72 74 20 | from th|e start |
|00001540| 6f 66 20 74 68 65 20 63 | 6f 6f 6b 69 65 20 64 61 |of the c|ookie da|
|00001550| 74 61 20 6f 66 0d 09 09 | 09 09 09 74 68 65 20 73 |ta of...|...the s|
|00001560| 74 61 72 74 20 6f 66 20 | 65 61 63 68 20 63 6f 6f |tart of |each coo|
|00001570| 6b 69 65 2e 20 20 54 68 | 65 20 65 78 74 72 61 20 |kie.  Th|e extra |
|00001580| 6f 6e 65 20 69 73 20 74 | 68 65 72 65 20 74 6f 0d |one is t|here to.|
|00001590| 09 09 09 09 09 62 65 20 | 61 62 6c 65 20 74 6f 20 |.....be |able to |
|000015a0| 63 61 6c 63 75 6c 61 74 | 65 20 74 68 65 20 6c 65 |calculat|e the le|
|000015b0| 6e 67 74 68 20 6f 66 20 | 74 68 65 20 6c 61 73 74 |ngth of |the last|
|000015c0| 20 63 6f 6f 6b 69 65 2e | 0d 3c 74 65 78 74 3e 09 | cookie.|.<text>.|
|000015d0| 09 09 09 4a 75 73 74 20 | 70 6c 61 69 6e 20 74 65 |...Just |plain te|
|000015e0| 78 74 2c 20 77 69 74 68 | 20 6e 6f 20 64 65 6c 69 |xt, with| no deli|
|000015f0| 6d 69 74 65 72 73 0d 0d | 0d 0d 48 6f 77 20 74 6f |miters..|..How to|
|00001600| 20 63 6f 6e 74 61 63 74 | 20 6d 65 3a 0d 0d 49 20 | contact| me:..I |
|00001610| 61 6d 20 44 2e 20 4a 61 | 79 20 4e 65 77 6d 61 6e |am D. Ja|y Newman|
|00001620| 2c 20 61 6e 64 20 49 20 | 63 61 6e 20 62 65 20 72 |, and I |can be r|
|00001630| 65 61 63 68 65 64 20 6f | 6e 20 74 68 65 20 6e 65 |eached o|n the ne|
|00001640| 74 20 62 79 0d 09 64 6e | 35 20 40 20 70 73 75 76 |t by..dn|5 @ psuv|
|00001650| 6d 2e 70 73 75 2e 65 64 | 75 0d 0d 49 20 63 61 6e |m.psu.ed|u..I can|
|00001660| 20 61 6c 73 6f 20 62 65 | 20 72 65 61 63 68 65 64 | also be| reached|
|00001670| 20 62 79 20 73 6e 61 69 | 6c 20 6d 61 69 6c 20 61 | by snai|l mail a|
|00001680| 74 0d 09 44 2e 20 4a 61 | 79 20 4e 65 77 6d 61 6e |t..D. Ja|y Newman|
|00001690| 0d 09 43 42 45 4c 0d 09 | 31 32 20 57 69 6c 6c 61 |..CBEL..|12 Willa|
|000016a0| 72 64 20 42 75 69 6c 64 | 69 6e 67 0d 09 55 6e 69 |rd Build|ing..Uni|
|000016b0| 76 65 72 73 69 74 79 20 | 50 61 72 6b 2c 20 50 41 |versity |Park, PA|
|000016c0| 20 20 31 36 38 30 32 0d | 0d 54 68 61 6e 6b 73 20 |  16802.|.Thanks |
|000016d0| 66 6f 72 20 72 65 61 64 | 69 6e 67 20 74 68 69 73 |for read|ing this|
|000016e0| 2c 20 61 6e 64 20 69 66 | 20 79 6f 75 20 68 61 76 |, and if| you hav|
|000016f0| 65 20 61 6e 79 20 66 69 | 78 65 73 2c 20 70 6c 65 |e any fi|xes, ple|
|00001700| 61 73 65 20 6c 65 74 20 | 6d 65 20 6b 6e 6f 77 2e |ase let |me know.|
|00001710| 0d 0d 49 20 72 65 6c 65 | 61 73 65 20 74 68 69 73 |..I rele|ase this|
|00001720| 20 64 6f 63 75 6d 65 6e | 74 2c 20 61 6e 64 20 61 | documen|t, and a|
|00001730| 6c 6c 20 74 68 65 20 73 | 6f 75 72 63 65 20 63 6f |ll the s|ource co|
|00001740| 64 65 20 66 6f 72 20 6d | 79 20 43 6f 6f 6b 69 65 |de for m|y Cookie|
|00001750| 20 44 41 2c 20 74 68 65 | 20 42 61 6b 65 0d 54 6f | DA, the| Bake.To|
|00001760| 6f 6c 2c 20 61 6e 64 20 | 74 68 65 20 43 6f 6f 6b |ol, and |the Cook|
|00001770| 69 65 45 64 69 74 20 48 | 79 70 65 72 43 61 72 64 |ieEdit H|yperCard|
|00001780| 20 58 43 4d 44 20 74 6f | 20 74 68 65 20 70 75 62 | XCMD to| the pub|
|00001790| 6c 69 63 20 64 6f 6d 61 | 69 6e 2e 0d 0d 09 09 09 |lic doma|in......|
|000017a0| 09 09 44 2e 20 4a 61 79 | 20 4e 65 77 6d 61 6e 00 |..D. Jay| Newman.|
|000017b0| 00 01 00 00 00 01 4c 00 | 00 00 4c 00 00 00 32 10 |......L.|..L...2.|
|000017c0| 80 00 08 10 03 fe 08 10 | 00 00 08 10 03 fc 08 10 |........|........|
|000017d0| 00 00 08 10 0f ff 08 10 | 00 00 08 10 3f ff 88 05 |........|....?...|
|000017e0| 42 75 69 6c 64 02 00 00 | 00 54 45 58 54 4d 50 53 |Build...|.TEXTMPS|
|000017f0| 20 01 00 00 00 00 00 00 | 00 00 00 9e e3 00 00 00 | .......|........|
|00001800| 00 54 45 58 54 4d 50 53 | 20 01 00 00 00 00 00 00 |.TEXTMPS| .......|
|00001810| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001820| 00 a3 c0 fa 15 00 00 03 | 39 00 00 01 7e ff f8 1f |........|9...~...|
|00001830| ff ff f8 1f ff ff f8 1f | ff ff f8 1f ff ff f8 1f |........|........|
|00001840| ff ff f8 1f ff ff f8 1f | ff ff f8 1f ff ff f8 1f |........|........|
|00001850| ff ff f8 1f ff ff f8 1f | ff ff f8 1f ff ff f8 1f |........|........|
|00001860| ff ff f8 1f ff ff f8 1f | ff ff f8 1f ff ff f8 1f |........|........|
|00001870| ff ff f8 1f ff ff f8 1f | ff ff f8 1f ff ff f8 1f |........|........|
|00001880| ff ff f8 1f ff ff f8 1f | ff ff f8 1f ff ff f8 1f |........|........|
|00001890| ff ff f8 00 00 01 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000018a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000018b0| 00 00 48 00 09 4d 6f 6e | 61 63 6f 00 00 6c 73 3a |..H..Mon|aco..ls:|
|000018c0| 53 79 6d 65 74 72 69 63 | 46 69 6c 69 6e 67 3a 22 |Symetric|Filing:"|
|000018d0| 0d 0d 44 61 74 00 06 00 | 03 00 6e 00 7f 01 50 01 |..Dat...|..n...P.|
|000018e0| f5 00 6e 00 7f 01 50 01 | f5 a2 9d d5 4e 00 00 01 |..n...P.|....N...|
|000018f0| f3 00 00 01 f3 00 00 01 | a8 01 00 00 00 01 00 00 |........|........|
|00001900| 00 01 4c 00 00 00 4c 00 | 00 00 32 00 15 33 7c 06 |..L...L.|..2..3|.|
|00001910| 9e 00 00 00 1c 00 32 00 | 00 4d 50 53 52 00 00 00 |......2.|.MPSR...|
|00001920| 0a 03 ed ff ff 00 00 00 | 00 00 16 cb d8 6d 6f 64 |........|.....mod|
|00001930| 75 6c 61 20 2d 6d 62 67 | 20 6f 6e 20 4c 6f 63 4c |ula -mbg| on LocL|
|00001940| 69 62 2e 64 65 66 0d 6d | 6f 64 75 6c 61 20 2d 6d |ib.def.m|odula -m|
|00001950| 62 67 20 6f 6e 20 64 61 | 74 61 73 74 61 63 6b 73 |bg on da|tastacks|
|00001960| 2e 64 65 66 0d 6d 6f 64 | 75 6c 61 20 2d 6d 62 67 |.def.mod|ula -mbg|
|00001970| 20 6f 6e 20 53 74 61 63 | 6b 46 69 6c 65 73 2e 44 | on Stac|kFiles.D|
|00001980| 65 66 0d 0d 6d 6f 64 75 | 6c 61 20 2d 6d 62 67 20 |ef..modu|la -mbg |
|00001990| 6f 6e 20 4c 6f 63 4c 69 | 62 2e 6d 6f 64 0d 6d 6f |on LocLi|b.mod.mo|
|000019a0| 64 75 6c 61 20 2d 6d 62 | 67 20 6f 6e 20 53 74 61 |dula -mb|g on Sta|
|000019b0| 63 6b 46 69 6c 65 73 2e | 4d 6f 64 0d 6d 6f 64 75 |ckFiles.|Mod.modu|
|000019c0| 6c 61 20 2d 6d 62 67 20 | 6f 6e 20 64 61 74 61 73 |la -mbg |on datas|
|000019d0| 74 61 63 6b 73 2e 6d 6f | 64 0d 61 73 6d 20 64 61 |tacks.mo|d.asm da|
|000019e0| 74 61 73 74 61 63 6b 73 | 2e 61 0d 0d 0d 23 6d 6f |tastacks|.a...#mo|
|000019f0| 64 75 6c 61 20 2d 6d 62 | 67 20 6f 6e 20 43 61 72 |dula -mb|g on Car|
|00001a00| 64 53 74 61 63 6b 54 65 | 73 74 2e 4d 6f 64 0d 6c |dStackTe|st.Mod.l|
|00001a10| 69 6e 6b 20 43 61 72 64 | 53 74 61 63 6b 54 65 73 |ink Card|StackTes|
|00001a20| 74 2e 4d 6f 64 2e 6f 20 | 64 61 74 61 73 74 61 63 |t.Mod.o |datastac|
|00001a30| 6b 73 2e 61 2e 6f 20 b6 | 0d 09 22 7b 4c 69 62 72 |ks.a.o .|.."{Libr|
|00001a40| 61 72 69 65 73 7d 22 52 | 75 6e 74 69 6d 65 2e 6f |aries}"R|untime.o|
|00001a50| 20 22 7b 4c 69 62 72 61 | 72 69 65 73 7d 22 69 6e | "{Libra|ries}"in|
|00001a60| 74 65 72 66 61 63 65 2e | 6f 20 b6 0d 09 22 7b 4d |terface.|o ..."{M|
|00001a70| 4c 69 62 72 61 72 69 65 | 73 7d 4d 52 75 6e 74 69 |Librarie|s}MRunti|
|00001a80| 6d 65 2e 6f 22 20 22 7b | 4d 4c 69 62 72 61 72 69 |me.o" "{|MLibrari|
|00001a90| 65 73 7d 4d 49 6e 74 65 | 72 66 61 63 65 2e 6f 22 |es}MInte|rface.o"|
|00001aa0| 20 b6 0d 09 6c 6f 63 6c | 69 62 2e 6d 6f 64 2e 6f | ...locl|ib.mod.o|
|00001ab0| 20 64 61 74 61 73 74 61 | 63 6b 73 2e 6d 6f 64 2e | datasta|cks.mod.|
|00001ac0| 6f 20 73 74 61 63 6b 66 | 69 6c 65 73 2e 6d 6f 64 |o stackf|iles.mod|
|00001ad0| 2e 6f 20 b6 0d 09 2d 73 | 67 20 6d 61 69 6e 20 2d |.o ...-s|g main -|
|00001ae0| 74 20 22 4d 50 53 54 22 | 20 2d 63 20 22 4d 50 53 |t "MPST"| -c "MPS|
|00001af0| 20 22 20 2d 6f 20 43 61 | 72 64 53 74 61 63 6b 54 | " -o Ca|rdStackT|
|00001b00| 65 73 74 0d 0d 6d 6f 64 | 75 6c 61 20 2d 6d 62 67 |est..mod|ula -mbg|
|00001b10| 20 6f 6e 20 44 65 6d 6f | 54 65 73 74 2e 4d 6f 64 | on Demo|Test.Mod|
|00001b20| 0d 6c 69 6e 6b 20 44 65 | 6d 6f 54 65 73 74 2e 4d |.link De|moTest.M|
|00001b30| 6f 64 2e 6f 20 64 61 74 | 61 73 74 61 63 6b 73 2e |od.o dat|astacks.|
|00001b40| 61 2e 6f 20 b6 0d 09 22 | 7b 4c 69 62 72 61 72 69 |a.o ..."|{Librari|
|00001b50| 65 73 7d 22 52 75 6e 74 | 69 6d 65 2e 6f 20 22 7b |es}"Runt|ime.o "{|
|00001b60| 4c 69 62 72 61 72 69 65 | 73 7d 22 69 6e 74 65 72 |Librarie|s}"inter|
|00001b70| 66 61 63 65 2e 6f 20 b6 | 0d 09 22 7b 4d 4c 69 62 |face.o .|.."{MLib|
|00001b80| 72 61 72 69 65 73 7d 4d | 52 75 6e 74 69 6d 65 2e |raries}M|Runtime.|
|00001b90| 6f 22 20 22 7b 4d 4c 69 | 62 72 61 72 69 65 73 7d |o" "{MLi|braries}|
|00001ba0| 4d 49 6e 74 65 72 66 61 | 63 65 2e 6f 22 20 b6 0d |MInterfa|ce.o" ..|
|00001bb0| 09 6c 6f 63 6c 69 62 2e | 6d 6f 64 2e 6f 20 64 61 |.loclib.|mod.o da|
|00001bc0| 74 61 73 74 61 63 6b 73 | 2e 6d 6f 64 2e 6f 20 73 |tastacks|.mod.o s|
|00001bd0| 74 61 63 6b 66 69 6c 65 | 73 2e 6d 6f 64 2e 6f 20 |tackfile|s.mod.o |
|00001be0| b6 0d 09 2d 73 67 20 6d | 61 69 6e 20 2d 74 20 22 |...-sg m|ain -t "|
|00001bf0| 4d 50 53 54 22 20 2d 63 | 20 22 4d 50 53 20 22 20 |MPST" -c| "MPS " |
|00001c00| 2d 6f 20 44 65 6d 6f 54 | 65 73 74 0d 0d 0d 66 6c |-o DemoT|est...fl|
|00001c10| 75 73 68 0d 64 61 74 65 | 20 2d 74 0d 64 65 6d 6f |ush.date| -t.demo|
|00001c20| 74 65 73 74 0d 64 61 74 | 65 20 2d 74 0d 0d 28 2a |test.dat|e -t..(*|
|00001c30| 20 77 69 74 68 6f 75 74 | 20 63 6f 6d 70 61 63 74 | without| compact|
|00001c40| 69 6e 67 20 73 74 61 63 | 6b 2e 20 2a 29 0d 31 31 |ing stac|k. *).11|
|00001c50| 3a 35 38 3a 30 36 20 50 | 4d 0d 31 31 3a 35 39 3a |:58:06 P|M.11:59:|
|00001c60| 31 30 20 50 4d 0d 00 00 | 01 00 00 00 01 4c 00 00 |10 PM...|.....L..|
|00001c70| 00 4c 00 00 00 32 36 29 | 0d 09 09 09 09 09 4d 4f |.L...26)|......MO|
|00001c80| 56 45 2e 57 20 20 20 20 | 20 2d 24 30 30 30 32 28 |VE.W    | -$0002(|
|00001c90| 41 36 29 2c 44 32 0c 44 | 61 74 61 53 74 61 63 6b |A6),D2.D|ataStack|
|00001ca0| 73 2e 61 61 02 00 00 00 | 54 45 58 54 4d 50 53 20 |s.aa....|TEXTMPS |
|00001cb0| 01 00 00 14 00 00 00 00 | 54 45 58 54 4d 50 53 20 |........|TEXTMPS |
|00001cc0| 01 00 00 14 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001cd0| 00 00 00 00 00 00 00 00 | a2 9c 55 d4 00 00 02 f8 |........|..U.....|
|00001ce0| 00 00 01 7e 09 09 09 09 | 43 4c 52 2e 57 20 20 20 |...~....|CLR.W   |
|00001cf0| 20 20 20 24 30 30 31 30 | 28 41 36 29 0d 09 09 09 |   $0010|(A6)....|
|00001d00| 09 09 42 52 41 20 20 20 | 20 20 20 20 20 2a 2b 24 |..BRA   |     *+$|
|00001d10| 30 30 30 41 20 20 20 20 | 20 20 20 20 20 20 20 20 |000A    |        |
|00001d20| 20 3b 20 30 30 30 30 30 | 30 34 36 0d 09 09 09 09 | ; 00000|046.....|
|00001d30| 09 4d 4f 56 45 51 20 20 | 20 20 20 20 23 24 30 32 |.MOVEQ  |    #$02|
|00001d40| 2c 44 30 0d 09 09 09 09 | 09 4a 53 52 20 20 20 20 |,D0.....|.JSR    |
|00001d50| 20 20 20 20 53 79 73 74 | 65 6d 5f 48 41 4c 54 58 |    Syst|em_HALTX|
|00001d60| 20 20 20 20 20 20 00 00 | 00 48 00 09 4d 6f 6e 61 |      ..|.H..Mona|
|00001d70| 63 6f 00 09 09 23 67 65 | 74 20 61 72 72 61 79 20 |co...#ge|t array |
|00001d80| 70 6f 69 6e 74 65 72 0d | 09 09 09 09 00 06 00 03 |pointer.|........|
|00001d90| 00 2d 00 06 01 56 02 00 | 00 2d 00 06 01 56 02 00 |.-...V..|.-...V..|
|00001da0| a2 9c 98 11 00 00 00 0e | 00 00 00 0e 00 00 00 00 |........|........|
|00001db0| 01 00 00 00 01 00 00 00 | 01 4c 00 00 00 4c 00 00 |........|.L...L..|
|00001dc0| 00 32 00 24 d3 7c 07 b8 | 00 00 00 1c 00 32 00 00 |.2.$.|..|.....2..|
|00001dd0| 4d 50 53 52 00 00 00 0a | 03 ed ff ff 00 00 00 00 |MPSR....|........|
|00001de0| 00 26 6a 80 09 09 09 09 | 09 43 41 53 45 09 09 09 |.&j.....|.CASE...|
|00001df0| 4f 4e 0d 46 69 6e 64 4b | 65 79 49 6e 64 65 78 09 |ON.FindK|eyIndex.|
|00001e00| 50 52 4f 43 09 09 09 45 | 58 50 4f 52 54 20 09 09 |PROC...E|XPORT ..|
|00001e10| 3b 4d 6f 64 75 6c 61 20 | 73 61 76 65 73 20 72 65 |;Modula |saves re|
|00001e20| 67 69 73 74 65 72 73 20 | 61 63 72 6f 73 73 20 63 |gisters |across c|
|00001e30| 61 6c 6c 2e 0d 09 09 09 | 09 09 09 09 09 09 09 09 |all.....|........|
|00001e40| 09 09 3b 4d 6f 64 75 6c | 61 20 63 6c 65 61 72 73 |..;Modul|a clears|
|00001e50| 20 74 68 65 20 72 65 74 | 75 72 6e 20 76 61 6c 75 | the ret|urn valu|
|00001e60| 65 2e 0d 0d 09 09 09 09 | 09 4d 4f 56 45 41 2e 4c |e.......|.MOVEA.L|
|00001e70| 09 09 28 53 50 29 2b 2c | 41 30 09 09 3b 67 65 74 |..(SP)+,|A0..;get|
|00001e80| 20 72 65 74 75 72 6e 20 | 61 64 64 72 65 73 73 0d | return |address.|
|00001e90| 09 09 09 09 09 4d 4f 56 | 45 2e 57 09 09 28 53 50 |.....MOV|E.W..(SP|
|00001ea0| 29 2b 2c 44 31 09 09 3b | 67 65 74 20 74 6f 74 46 |)+,D1..;|get totF|
|00001eb0| 69 6c 0d 09 09 09 09 09 | 4d 4f 56 45 2e 57 09 09 |il......|MOVE.W..|
|00001ec0| 28 53 50 29 2b 2c 44 30 | 09 09 3b 67 65 74 20 69 |(SP)+,D0|..;get i|
|00001ed0| 6e 64 65 78 0d 09 09 09 | 09 09 0d 09 09 09 09 09 |ndex....|........|
|00001ee0| 4d 4f 56 45 2e 4c 09 09 | 28 53 50 29 2b 2c 44 32 |MOVE.L..|(SP)+,D2|
|00001ef0| 09 09 3b 67 65 74 20 61 | 72 72 61 79 20 70 6f 69 |..;get a|rray poi|
|00001f00| 6e 74 65 72 0d 09 09 09 | 09 09 41 44 44 51 2e 4c |nter....|..ADDQ.L|
|00001f10| 09 09 23 32 2c 44 32 09 | 09 09 3b 70 6f 69 6e 74 |..#2,D2.|..;point|
|00001f20| 20 74 6f 20 66 69 72 73 | 74 20 65 6c 65 6d 65 6e | to firs|t elemen|
|00001f30| 74 20 5b 31 5d 0d 09 09 | 09 09 09 4d 4f 56 45 41 |t [1]...|...MOVEA|
|00001f40| 2e 4c 09 09 44 32 2c 41 | 31 09 09 09 3b 6c 65 74 |.L..D2,A|1...;let|
|00001f50| 27 73 20 75 73 65 20 69 | 74 20 64 69 72 65 63 74 |'s use i|t direct|
|00001f60| 6c 79 0d 09 09 09 09 09 | 0d 4c 4f 4f 50 09 09 09 |ly......|.LOOP...|
|00001f70| 09 43 4d 50 2e 57 09 09 | 09 28 41 31 29 2b 2c 44 |.CMP.W..|.(A1)+,D|
|00001f80| 30 09 09 3b 64 6f 65 73 | 20 69 74 20 70 6f 69 6e |0..;does| it poin|
|00001f90| 74 20 74 6f 20 69 6e 64 | 65 78 3f 0d 09 09 09 09 |t to ind|ex?.....|
|00001fa0| 09 42 45 51 2e 53 09 09 | 09 52 65 74 75 72 6e 56 |.BEQ.S..|.ReturnV|
|00001fb0| 61 6c 0d 09 09 09 09 09 | 44 42 46 09 09 09 44 31 |al......|DBF...D1|
|00001fc0| 2c 4c 4f 4f 50 0d 09 09 | 09 09 09 42 52 41 2e 53 |,LOOP...|...BRA.S|
|00001fd0| 09 09 09 45 78 69 74 47 | 72 61 63 65 6c 65 73 73 |...ExitG|raceless|
|00001fe0| 0d 09 09 09 09 09 0d 52 | 65 74 75 72 6e 56 61 6c |.......R|eturnVal|
|00001ff0| 09 09 53 55 42 2e 4c 09 | 09 09 44 32 2c 41 31 09 |..SUB.L.|..D2,A1.|
|00002000| 09 09 3b 73 75 62 74 72 | 61 63 74 20 6f 75 74 20 |..;subtr|act out |
|00002010| 74 68 65 20 70 6f 69 6e | 74 65 72 20 74 6f 20 5b |the poin|ter to [|
|00002020| 31 5d 0d 09 09 09 09 09 | 4d 4f 56 45 2e 4c 09 09 |1]......|MOVE.L..|
|00002030| 41 31 2c 44 32 09 09 09 | 3b 28 41 31 20 70 6f 69 |A1,D2...|;(A1 poi|
|00002040| 6e 74 73 20 6a 75 73 74 | 20 70 61 73 74 20 74 65 |nts just| past te|
|00002050| 73 74 65 65 29 20 0d 09 | 09 09 09 09 41 53 52 2e |stee) ..|....ASR.|
|00002060| 4c 09 09 09 23 31 2c 44 | 32 09 09 09 3b 64 69 76 |L...#1,D|2...;div|
|00002070| 69 64 65 20 62 79 20 32 | 0d 09 09 09 09 09 4d 4f |ide by 2|......MO|
|00002080| 56 45 2e 57 09 09 44 32 | 2c 28 53 50 29 09 09 3b |VE.W..D2|,(SP)..;|
|00002090| 73 61 76 65 20 69 6e 20 | 72 65 74 75 72 6e 20 73 |save in |return s|
|000020a0| 70 61 63 65 0d 09 09 09 | 09 09 0d 45 78 69 74 47 |pace....|...ExitG|
|000020b0| 72 61 63 65 6c 65 73 73 | 09 4a 4d 50 09 09 09 28 |raceless|.JMP...(|
|000020c0| 41 30 29 0d 09 09 09 09 | 09 45 4e 44 50 0d 09 09 |A0).....|.ENDP...|
|000020d0| 09 09 09 0d 09 09 09 09 | 09 45 4e 44 01 00 00 02 |........|.END....|
|000020e0| 04 00 00 18 00 01 0c 46 | 69 6e 64 4b 65 79 49 6e |.......F|indKeyIn|
|000020f0| 64 65 78 04 4d 61 69 6e | 05 08 00 01 00 02 08 08 |dex.Main|........|
|00002100| 00 28 00 00 00 00 20 5f | 32 1f 30 1f 24 1f 54 82 |.(.... _|2.0.$.T.|
|00002110| 22 42 b0 59 67 06 51 c9 | ff fa 60 08 93 c2 24 09 |"B.Yg.Q.|..`...$.|
|00002120| e2 82 3e 82 4e d0 07 00 | 00 00 00 20 02 00 00 00 |..>.N...|... ....|
|00002130| 01 00 00 00 01 4c 00 00 | 00 4c 00 00 00 32 f2 02 |.....L..|.L...2..|
|00002140| 00 25 00 34 07 70 6e 53 | 69 7a 65 f2 02 00 04 00 |.%.4.pnS|ize.....|
|00002150| 38 07 70 6e 4d 6f 64 65 | f2 02 00 2f 00 3a 0e 44 |8.pnMode|.../.:.D|
|00002160| 61 74 61 53 74 61 63 6b | 73 2e 44 65 66 6b 02 00 |ataStack|s.Defk..|
|00002170| 00 00 54 45 58 54 4d 50 | 53 20 01 00 00 3c 00 00 |..TEXTMP|S ...<..|
|00002180| 54 45 58 54 4d 50 53 20 | 01 00 00 3c 00 00 00 00 |TEXTMPS |...<....|
|00002190| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000021a0| a3 c0 fd 24 00 00 07 9c | 00 00 01 7e 70 45 78 74 |...$....|...~pExt|
|000021b0| 72 61 f2 02 00 06 00 50 | 08 66 67 43 6f 6c 6f 72 |ra.....P|.fgColor|
|000021c0| f2 02 00 06 00 54 08 62 | 6b 43 6f 6c 6f 72 f2 02 |.....T.b|kColor..|
|000021d0| 00 04 00 58 08 63 6f 6c | 72 42 69 74 f2 02 00 04 |...X.col|rBit....|
|000021e0| 00 5a 0b 70 61 74 53 74 | 72 65 74 63 68 f2 02 00 |.Z.patSt|retch...|
|000021f0| 32 00 5c 08 70 69 63 53 | 61 76 65 f2 02 00 2d 00 |2.\.picS|ave...-.|
|00002200| 60 08 72 67 6e 53 61 76 | 65 f2 02 00 33 00 64 09 |`.rgnSav|e...3.d.|
|00002210| 70 6f 6c 79 53 61 76 65 | f2 02 00 34 00 68 0a 67 |polySave|...4.h.g|
|00002220| 72 61 66 50 72 6f 63 73 | f4 0a 00 6c 00 19 00 00 |rafProcs|...l....|
|00002230| 00 48 00 09 4d 6f 6e 61 | 63 6f 00 00 46 49 4e 49 |.H..Mona|co..FINI|
|00002240| 54 49 4f 4e 20 4d 4f 44 | 55 4c 45 20 44 61 74 61 |TION MOD|ULE Data|
|00002250| 53 74 61 63 00 06 00 03 | 00 2d 00 06 01 e0 02 58 |Stac....|.-.....X|
|00002260| 00 28 00 01 01 58 01 b5 | a2 9d dc 73 00 00 00 5c |.(...X..|...s...\|
|00002270| 00 00 00 5c 00 00 00 00 | 01 00 00 00 01 00 00 00 |...\....|........|
|00002280| 01 4c 00 00 00 4c 00 00 | 00 32 00 15 33 7c 07 5a |.L...L..|.2..3|.Z|
|00002290| 00 00 00 1c 00 32 00 00 | 4d 50 53 52 00 00 00 0a |.....2..|MPSR....|
|000022a0| 03 ed ff ff 00 00 00 00 | 00 16 cb f0 44 45 46 49 |........|....DEFI|
|000022b0| 4e 49 54 49 4f 4e 20 4d | 4f 44 55 4c 45 20 44 61 |NITION M|ODULE Da|
|000022c0| 74 61 53 74 61 63 6b 73 | 3b 0d 28 2a 09 43 6f 70 |taStacks|;.(*.Cop|
|000022d0| 79 72 69 67 68 74 3a 09 | a9 20 31 39 39 30 20 62 |yright:.|. 1990 b|
|000022e0| 79 20 4b 65 69 74 68 20 | 4e 65 6d 69 74 7a 2c 20 |y Keith |Nemitz, |
|000022f0| 61 6c 6c 20 72 69 67 68 | 74 73 20 72 65 73 65 72 |all righ|ts reser|
|00002300| 76 65 64 2e 20 2a 29 0d | 28 2a 20 61 6c 6c 20 63 |ved. *).|(* all c|
|00002310| 61 72 64 20 6e 61 6d 65 | 73 20 61 72 65 2f 28 6d |ard name|s are/(m|
|00002320| 75 73 74 20 62 65 29 20 | 70 61 73 63 61 6c 20 73 |ust be) |pascal s|
|00002330| 74 72 69 6e 67 73 2e 20 | 2a 29 0d 0d 46 52 4f 4d |trings. |*)..FROM|
|00002340| 20 53 59 53 54 45 4d 20 | 49 4d 50 4f 52 54 20 41 | SYSTEM |IMPORT A|
|00002350| 44 44 52 45 53 53 3b 0d | 0d 46 52 4f 4d 20 4d 61 |DDRESS;.|.FROM Ma|
|00002360| 63 54 79 70 65 73 20 49 | 4d 50 4f 52 54 20 4f 53 |cTypes I|MPORT OS|
|00002370| 45 72 72 3b 0d 0d 0d 43 | 4f 4e 53 54 20 28 2a 20 |Err;...C|ONST (* |
|00002380| 65 72 72 6f 72 73 20 72 | 65 70 6f 72 74 65 64 20 |errors r|eported |
|00002390| 66 72 6f 6d 20 44 61 74 | 61 53 74 61 63 6b 20 63 |from Dat|aStack c|
|000023a0| 61 6c 6c 73 2e 20 2a 29 | 0d 09 63 61 72 64 53 69 |alls. *)|..cardSi|
|000023b0| 7a 65 54 6f 6f 42 69 67 | 09 3d 20 37 30 31 3b 0d |zeTooBig|.= 701;.|
|000023c0| 09 74 6f 6f 4d 61 6e 79 | 43 61 72 64 73 09 3d 20 |.tooMany|Cards.= |
|000023d0| 37 30 32 3b 0d 09 69 6e | 64 78 4f 75 74 4f 66 52 |702;..in|dxOutOfR|
|000023e0| 61 6e 67 65 09 3d 20 37 | 30 33 3b 0d 09 6e 6f 74 |ange.= 7|03;..not|
|000023f0| 46 6f 75 6e 64 09 09 09 | 3d 20 37 30 34 3b 0d 09 |Found...|= 704;..|
|00002400| 0d 54 59 50 45 20 44 61 | 74 61 53 74 61 63 6b 3b |.TYPE Da|taStack;|
|00002410| 0d 0d 56 41 52 0d 09 64 | 61 74 61 53 74 61 63 6b |..VAR..d|ataStack|
|00002420| 45 72 72 20 3a 4f 53 45 | 72 72 3b 0d 0d 50 52 4f |Err :OSE|rr;..PRO|
|00002430| 43 45 44 55 52 45 20 4e | 65 77 44 61 74 61 53 74 |CEDURE N|ewDataSt|
|00002440| 61 63 6b 28 63 53 69 7a | 65 2c 69 6e 69 74 69 61 |ack(cSiz|e,initia|
|00002450| 6c 2c 67 72 6f 77 3a 43 | 41 52 44 49 4e 41 4c 29 |l,grow:C|ARDINAL)|
|00002460| 3a 44 61 74 61 53 74 61 | 63 6b 3b 0d 50 52 4f 43 |:DataSta|ck;.PROC|
|00002470| 45 44 55 52 45 20 44 69 | 73 70 6f 73 65 44 61 74 |EDURE Di|sposeDat|
|00002480| 61 53 74 61 63 6b 28 73 | 74 61 63 6b 3a 44 61 74 |aStack(s|tack:Dat|
|00002490| 61 53 74 61 63 6b 29 3b | 0d 0d 50 52 4f 43 45 44 |aStack);|..PROCED|
|000024a0| 55 52 45 20 4c 6f 61 64 | 44 61 74 61 53 74 61 63 |URE Load|DataStac|
|000024b0| 6b 28 66 52 65 66 4e 75 | 6d 3a 49 4e 54 45 47 45 |k(fRefNu|m:INTEGE|
|000024c0| 52 29 3a 44 61 74 61 53 | 74 61 63 6b 3b 0d 50 52 |R):DataS|tack;.PR|
|000024d0| 4f 43 45 44 55 52 45 20 | 44 75 6d 70 44 61 74 61 |OCEDURE |DumpData|
|000024e0| 53 74 61 63 6b 28 73 74 | 61 63 6b 3a 44 61 74 61 |Stack(st|ack:Data|
|000024f0| 53 74 61 63 6b 3b 20 66 | 52 65 66 4e 75 6d 3a 49 |Stack; f|RefNum:I|
|00002500| 4e 54 45 47 45 52 29 3a | 42 4f 4f 4c 45 41 4e 3b |NTEGER):|BOOLEAN;|
|00002510| 0d 0d 0d 0d 50 52 4f 43 | 45 44 55 52 45 20 41 64 |....PROC|EDURE Ad|
|00002520| 64 43 61 72 64 28 73 74 | 61 63 6b 3a 44 61 74 61 |dCard(st|ack:Data|
|00002530| 53 74 61 63 6b 3b 20 64 | 61 74 61 3a 41 44 44 52 |Stack; d|ata:ADDR|
|00002540| 45 53 53 3b 20 6e 61 6d | 65 3a 41 52 52 41 59 20 |ESS; nam|e:ARRAY |
|00002550| 4f 46 20 43 48 41 52 29 | 3a 4c 4f 4e 47 43 41 52 |OF CHAR)|:LONGCAR|
|00002560| 44 3b 0d 09 28 2a 20 72 | 65 74 75 72 6e 73 20 49 |D;..(* r|eturns I|
|00002570| 44 20 3d 20 30 20 69 66 | 20 75 6e 61 62 6c 65 2e |D = 0 if| unable.|
|00002580| 20 27 64 61 74 61 27 20 | 49 53 20 50 74 72 2e 20 | 'data' |IS Ptr. |
|00002590| 2a 29 0d 09 28 2a 20 72 | 65 74 75 72 6e 73 20 49 |*)..(* r|eturns I|
|000025a0| 44 20 3d 20 30 20 69 66 | 20 67 72 6f 77 20 77 61 |D = 0 if| grow wa|
|000025b0| 73 20 7a 65 72 6f 20 69 | 6e 20 63 61 6c 6c 20 74 |s zero i|n call t|
|000025c0| 6f 20 4e 65 77 44 61 74 | 61 53 74 61 63 6b 2e 20 |o NewDat|aStack. |
|000025d0| 2a 29 0d 09 0d 50 52 4f | 43 45 44 55 52 45 20 52 |*)...PRO|CEDURE R|
|000025e0| 65 6d 6f 76 65 43 61 72 | 64 28 73 74 61 63 6b 3a |emoveCar|d(stack:|
|000025f0| 44 61 74 61 53 74 61 63 | 6b 3b 20 69 6e 64 78 3a |DataStac|k; indx:|
|00002600| 43 41 52 44 49 4e 41 4c | 3b 20 69 64 3a 4c 4f 4e |CARDINAL|; id:LON|
|00002610| 47 43 41 52 44 29 3b 0d | 09 28 2a 20 62 79 20 69 |GCARD);.|.(* by i|
|00002620| 6e 64 20 69 66 20 6e 6f | 74 20 7a 65 72 6f 2c 20 |nd if no|t zero, |
|00002630| 74 68 65 6e 20 69 64 20 | 75 6e 6c 65 73 73 20 6e |then id |unless n|
|00002640| 61 6d 65 20 69 73 20 66 | 69 6c 6c 65 64 20 2a 29 |ame is f|illed *)|
|00002650| 0d 0d 50 52 4f 43 45 44 | 55 52 45 20 47 65 74 43 |..PROCED|URE GetC|
|00002660| 61 72 64 49 6e 64 78 28 | 73 74 61 63 6b 3a 44 61 |ardIndx(|stack:Da|
|00002670| 74 61 53 74 61 63 6b 3b | 20 69 64 3a 4c 4f 4e 47 |taStack;| id:LONG|
|00002680| 43 41 52 44 3b 20 6e 61 | 6d 65 3a 41 52 52 41 59 |CARD; na|me:ARRAY|
|00002690| 20 4f 46 20 43 48 41 52 | 29 3a 43 41 52 44 49 4e | OF CHAR|):CARDIN|
|000026a0| 41 4c 3b 0d 09 28 2a 20 | 62 79 20 69 64 20 75 6e |AL;..(* |by id un|
|000026b0| 6c 65 73 73 20 6e 61 6d | 65 20 69 73 20 66 69 6c |less nam|e is fil|
|000026c0| 6c 65 64 20 2a 29 0d 50 | 52 4f 43 45 44 55 52 45 |led *).P|ROCEDURE|
|000026d0| 20 47 65 74 43 61 72 64 | 49 44 28 73 74 61 63 6b | GetCard|ID(stack|
|000026e0| 3a 44 61 74 61 53 74 61 | 63 6b 3b 20 69 6e 64 78 |:DataSta|ck; indx|
|000026f0| 3a 43 41 52 44 49 4e 41 | 4c 3b 20 6e 61 6d 65 3a |:CARDINA|L; name:|
|00002700| 41 52 52 41 59 20 4f 46 | 20 43 48 41 52 29 3a 4c |ARRAY OF| CHAR):L|
|00002710| 4f 4e 47 43 41 52 44 3b | 20 0d 09 28 2a 20 62 79 |ONGCARD;| ..(* by|
|00002720| 20 69 6e 64 78 20 75 6e | 6c 65 73 73 20 6e 61 6d | indx un|less nam|
|00002730| 65 20 69 73 20 66 69 6c | 6c 65 64 20 2a 29 0d 50 |e is fil|led *).P|
|00002740| 52 4f 43 45 44 55 52 45 | 20 47 65 74 43 61 72 64 |ROCEDURE| GetCard|
|00002750| 4e 61 6d 65 28 73 74 61 | 63 6b 3a 44 61 74 61 53 |Name(sta|ck:DataS|
|00002760| 74 61 63 6b 3b 20 69 6e | 64 78 3a 43 41 52 44 49 |tack; in|dx:CARDI|
|00002770| 4e 41 4c 3b 20 69 64 3a | 4c 4f 4e 47 43 41 52 44 |NAL; id:|LONGCARD|
|00002780| 3b 20 56 41 52 20 6e 61 | 6d 65 3a 41 52 52 41 59 |; VAR na|me:ARRAY|
|00002790| 20 4f 46 20 43 48 41 52 | 29 3b 0d 09 28 2a 20 62 | OF CHAR|);..(* b|
|000027a0| 79 20 69 6e 64 78 20 69 | 66 20 6e 6f 74 20 7a 65 |y indx i|f not ze|
|000027b0| 72 6f 2c 20 74 68 65 6e | 20 69 64 20 75 6e 6c 65 |ro, then| id unle|
|000027c0| 73 73 20 6e 61 6d 65 20 | 69 73 20 66 69 6c 6c 65 |ss name |is fille|
|000027d0| 64 20 2a 29 0d 0d 50 52 | 4f 43 45 44 55 52 45 20 |d *)..PR|OCEDURE |
|000027e0| 53 65 74 43 61 72 64 4e | 61 6d 65 28 73 74 61 63 |SetCardN|ame(stac|
|000027f0| 6b 3a 44 61 74 61 53 74 | 61 63 6b 3b 20 69 6e 64 |k:DataSt|ack; ind|
|00002800| 78 2c 69 64 3a 43 41 52 | 44 49 4e 41 4c 3b 20 6e |x,id:CAR|DINAL; n|
|00002810| 61 6d 65 3a 41 52 52 41 | 59 20 4f 46 20 43 48 41 |ame:ARRA|Y OF CHA|
|00002820| 52 29 3b 0d 09 28 2a 20 | 62 79 20 69 6e 64 78 20 |R);..(* |by indx |
|00002830| 69 66 20 6e 6f 74 20 7a | 65 72 6f 2c 20 74 68 65 |if not z|ero, the|
|00002840| 6e 20 69 64 2e 20 2a 29 | 0d 50 52 4f 43 45 44 55 |n id. *)|.PROCEDU|
|00002850| 52 45 20 43 6f 75 6e 74 | 43 61 72 64 73 28 73 74 |RE Count|Cards(st|
|00002860| 61 63 6b 3a 44 61 74 61 | 53 74 61 63 6b 29 3a 43 |ack:Data|Stack):C|
|00002870| 41 52 44 49 4e 41 4c 3b | 0d 0d 50 52 4f 43 45 44 |ARDINAL;|..PROCED|
|00002880| 55 52 45 20 47 65 74 43 | 61 72 64 42 79 49 6e 64 |URE GetC|ardByInd|
|00002890| 78 28 73 74 61 63 6b 3a | 44 61 74 61 53 74 61 63 |x(stack:|DataStac|
|000028a0| 6b 3b 20 69 6e 64 78 3a | 43 41 52 44 49 4e 41 4c |k; indx:|CARDINAL|
|000028b0| 29 3a 41 44 44 52 45 53 | 53 3b 0d 50 52 4f 43 45 |):ADDRES|S;.PROCE|
|000028c0| 44 55 52 45 20 47 65 74 | 43 61 72 64 42 79 49 44 |DURE Get|CardByID|
|000028d0| 28 73 74 61 63 6b 3a 44 | 61 74 61 53 74 61 63 6b |(stack:D|ataStack|
|000028e0| 3b 20 69 64 3a 4c 4f 4e | 47 43 41 52 44 29 3a 41 |; id:LON|GCARD):A|
|000028f0| 44 44 52 45 53 53 3b 0d | 50 52 4f 43 45 44 55 52 |DDRESS;.|PROCEDUR|
|00002900| 45 20 47 65 74 43 61 72 | 64 42 79 4e 61 6d 65 28 |E GetCar|dByName(|
|00002910| 73 74 61 63 6b 3a 44 61 | 74 61 53 74 61 63 6b 3b |stack:Da|taStack;|
|00002920| 20 6e 61 6d 65 3a 41 52 | 52 41 59 20 4f 46 20 43 | name:AR|RAY OF C|
|00002930| 48 41 52 29 3a 41 44 44 | 52 45 53 53 3b 0d 0d 54 |HAR):ADD|RESS;..T|
|00002940| 59 50 45 20 44 6f 50 72 | 6f 63 20 3d 20 50 52 4f |YPE DoPr|oc = PRO|
|00002950| 43 45 44 55 52 45 28 41 | 44 44 52 45 53 53 29 3b |CEDURE(A|DDRESS);|
|00002960| 0d 28 2a 20 74 68 65 73 | 65 20 72 6f 75 74 69 6e |.(* thes|e routin|
|00002970| 65 73 20 64 6f 20 6e 6f | 74 20 73 65 74 20 28 6f |es do no|t set (o|
|00002980| 72 20 63 6c 65 61 72 29 | 20 64 61 74 61 53 74 61 |r clear)| dataSta|
|00002990| 63 6b 45 72 72 2e 20 2a | 29 0d 0d 50 52 4f 43 45 |ckErr. *|)..PROCE|
|000029a0| 44 55 52 45 20 46 6f 72 | 41 6c 6c 43 61 72 64 73 |DURE For|AllCards|
|000029b0| 44 6f 28 73 74 61 63 6b | 3a 44 61 74 61 53 74 61 |Do(stack|:DataSta|
|000029c0| 63 6b 3b 20 64 6f 3a 44 | 6f 50 72 6f 63 29 3b 0d |ck; do:D|oProc);.|
|000029d0| 50 52 4f 43 45 44 55 52 | 45 20 49 6e 49 44 4f 72 |PROCEDUR|E InIDOr|
|000029e0| 64 65 72 44 6f 28 73 74 | 61 63 6b 3a 44 61 74 61 |derDo(st|ack:Data|
|000029f0| 53 74 61 63 6b 3b 20 64 | 6f 3a 44 6f 50 72 6f 63 |Stack; d|o:DoProc|
|00002a00| 29 3b 0d 50 52 4f 43 45 | 44 55 52 45 20 49 6e 4e |);.PROCE|DURE InN|
|00002a10| 61 6d 65 4f 72 64 65 72 | 44 6f 28 73 74 61 63 6b |ameOrder|Do(stack|
|00002a20| 3a 44 61 74 61 53 74 61 | 63 6b 3b 20 64 6f 3a 44 |:DataSta|ck; do:D|
|00002a30| 6f 50 72 6f 63 29 3b 0d | 0d 45 4e 44 20 44 61 74 |oProc);.|.END Dat|
|00002a40| 61 53 74 61 63 6b 73 2e | 00 00 01 00 00 00 01 7a |aStacks.|.......z|
|00002a50| 00 00 00 7a 00 00 00 3e | 10 80 00 08 10 03 fe 08 |...z...>|........|
|00002a60| 10 00 00 08 10 03 fc 08 | 10 00 00 08 10 0f ff 08 |........|........|
|00002a70| 10 00 00 08 10 3f ff 88 | 0e 44 61 74 61 53 74 61 |.....?..|.DataSta|
|00002a80| 63 6b 73 2e 4d 6f 64 6b | 02 00 00 00 54 45 58 54 |cks.Modk|....TEXT|
|00002a90| 4d 50 53 20 01 00 00 50 | 00 00 54 45 58 54 4d 50 |MPS ...P|..TEXTMP|
|00002aa0| 53 20 01 00 00 50 00 00 | 00 00 00 00 00 00 00 00 |S ...P..|........|
|00002ab0| 00 00 00 00 00 00 00 00 | 00 00 a3 c0 fe c9 00 00 |........|........|
|00002ac0| 50 36 00 00 01 b8 ff f8 | 1f ff ff f8 1f ff ff f8 |P6......|........|
|00002ad0| 1f ff ff f8 1f ff ff f8 | 1f ff ff f8 1f ff ff f8 |........|........|
|00002ae0| 1f ff ff f8 1f ff ff f8 | 1f ff ff f8 1f ff ff f8 |........|........|
|00002af0| 1f ff ff f8 1f ff ff f8 | 1f ff ff f8 1f ff ff f8 |........|........|
|00002b00| 1f ff ff f8 1f ff ff f8 | 1f ff ff f8 1f ff ff f8 |........|........|
|00002b10| 1f ff ff f8 1f ff ff f8 | 1f ff ff f8 1f ff ff f8 |........|........|
|00002b20| 1f ff ff f8 1f ff ff f8 | 1f ff ff f8 00 00 01 00 |........|........|
|00002b30| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002b40| 00 00 00 00 00 00 00 00 | 00 00 00 48 00 09 4d 6f |........|...H..Mo|
|00002b50| 6e 61 63 6f 00 00 61 74 | 61 53 74 61 63 6b 20 3d |naco..at|aStack =|
|00002b60| 20 50 4f 49 4e 54 45 52 | 20 54 4f 20 44 61 00 06 | POINTER| TO Da..|
|00002b70| 00 03 00 2a 00 03 01 dd | 02 7d 00 2a 00 03 01 dd |...*....|.}.*....|
|00002b80| 02 7d a2 9d dc 50 00 00 | 00 60 00 00 00 60 00 00 |.}...P..|.`...`..|
|00002b90| 00 00 01 00 00 00 00 2a | 00 02 00 00 21 c4 00 00 |.......*|....!...|
|00002ba0| 21 d3 0f 53 65 61 72 63 | 68 53 74 61 63 6b 42 79 |!..Searc|hStackBy|
|00002bb0| 49 44 00 00 2f e7 00 00 | 2f ee 07 41 64 64 43 61 |ID../...|/..AddCa|
|00002bc0| 72 64 00 00 01 00 00 00 | 01 7a 00 00 00 7a 00 00 |rd......|.z...z..|
|00002bd0| 00 3e 00 15 33 7c 08 74 | 00 00 00 1c 00 3e 00 00 |.>..3|.t|.....>..|
|00002be0| 4d 50 53 52 00 01 00 0a | 03 ed ff ff 00 00 00 00 |MPSR....|........|
|00002bf0| 00 00 00 00 03 ef ff ff | 00 00 00 4c 00 16 cb 30 |........|...L...0|
|00002c00| 49 4d 50 4c 45 4d 45 4e | 54 41 54 49 4f 4e 20 4d |IMPLEMEN|TATION M|
|00002c10| 4f 44 55 4c 45 20 44 61 | 74 61 53 74 61 63 6b 73 |ODULE Da|taStacks|
|00002c20| 3b 0d 28 2a 09 43 6f 70 | 79 72 69 67 68 74 3a 09 |;.(*.Cop|yright:.|
|00002c30| a9 20 31 39 39 30 20 62 | 79 20 4b 65 69 74 68 20 |. 1990 b|y Keith |
|00002c40| 4e 65 6d 69 74 7a 2c 20 | 61 6c 6c 20 72 69 67 68 |Nemitz, |all righ|
|00002c50| 74 73 20 72 65 73 65 72 | 76 65 64 2e 20 2a 29 0d |ts reser|ved. *).|
|00002c60| 46 52 4f 4d 20 53 59 53 | 54 45 4d 20 49 4d 50 4f |FROM SYS|TEM IMPO|
|00002c70| 52 54 20 41 44 52 2c 41 | 44 44 52 45 53 53 3b 0d |RT ADR,A|DDRESS;.|
|00002c80| 0d 46 52 4f 4d 20 4d 61 | 63 54 79 70 65 73 20 49 |.FROM Ma|cTypes I|
|00002c90| 4d 50 4f 52 54 20 50 74 | 72 2c 4f 53 45 72 72 2c |MPORT Pt|r,OSErr,|
|00002ca0| 53 74 72 33 31 2c 53 74 | 72 69 6e 67 50 74 72 2c |Str31,St|ringPtr,|
|00002cb0| 64 65 62 75 67 73 74 72 | 3b 0d 46 52 4f 4d 20 4d |debugstr|;.FROM M|
|00002cc0| 65 6d 6f 72 79 4d 61 6e | 61 67 65 72 20 49 4d 50 |emoryMan|ager IMP|
|00002cd0| 4f 52 54 20 4e 65 77 50 | 74 72 2c 44 69 73 70 6f |ORT NewP|tr,Dispo|
|00002ce0| 73 50 74 72 2c 4e 65 77 | 48 61 6e 64 6c 65 2c 44 |sPtr,New|Handle,D|
|00002cf0| 69 73 70 6f 73 48 61 6e | 64 6c 65 2c 4d 65 6d 45 |isposHan|dle,MemE|
|00002d00| 72 72 6f 72 2c 0d 09 09 | 4d 6f 76 65 48 48 69 2c |rror,...|MoveHHi,|
|00002d10| 48 4c 6f 63 6b 2c 48 55 | 6e 6c 6f 63 6b 2c 42 6c |HLock,HU|nlock,Bl|
|00002d20| 6f 63 6b 4d 6f 76 65 2c | 47 65 74 48 61 6e 64 6c |ockMove,|GetHandl|
|00002d30| 65 53 69 7a 65 2c 53 65 | 74 48 61 6e 64 6c 65 53 |eSize,Se|tHandleS|
|00002d40| 69 7a 65 2c 6e 6f 45 72 | 72 3b 0d 46 52 4f 4d 20 |ize,noEr|r;.FROM |
|00002d50| 46 69 6c 65 4d 61 6e 61 | 67 65 72 20 49 4d 50 4f |FileMana|ger IMPO|
|00002d60| 52 54 20 46 53 52 65 61 | 64 2c 46 53 57 72 69 74 |RT FSRea|d,FSWrit|
|00002d70| 65 2c 41 6c 6c 6f 63 61 | 74 65 3b 0d 0d 46 52 4f |e,Alloca|te;..FRO|
|00002d80| 4d 20 4c 6f 63 4c 69 62 | 20 49 4d 50 4f 52 54 20 |M LocLib| IMPORT |
|00002d90| 43 6f 70 79 53 74 72 3b | 0d 0d 0d 54 59 50 45 0d |CopyStr;|...TYPE.|
|00002da0| 09 47 72 6f 77 53 74 61 | 63 6b 20 3d 20 50 4f 49 |.GrowSta|ck = POI|
|00002db0| 4e 54 45 52 20 54 4f 20 | 47 72 6f 77 53 74 61 63 |NTER TO |GrowStac|
|00002dc0| 6b 50 74 72 3b 0d 09 47 | 72 6f 77 53 74 61 63 6b |kPtr;..G|rowStack|
|00002dd0| 50 74 72 20 3d 20 50 4f | 49 4e 54 45 52 20 54 4f |Ptr = PO|INTER TO|
|00002de0| 20 47 72 6f 77 53 74 61 | 63 6b 52 65 63 3b 0d 09 | GrowSta|ckRec;..|
|00002df0| 47 72 6f 77 53 74 61 63 | 6b 52 65 63 20 3d 20 52 |GrowStac|kRec = R|
|00002e00| 45 43 4f 52 44 0d 09 09 | 09 09 09 09 09 64 61 74 |ECORD...|.....dat|
|00002e10| 61 50 74 72 20 3a 50 74 | 72 3b 0d 09 09 09 09 09 |aPtr :Pt|r;......|
|00002e20| 09 09 66 69 6c 6c 65 64 | 43 61 72 64 73 20 3a 43 |..filled|Cards :C|
|00002e30| 41 52 44 49 4e 41 4c 3b | 20 28 2a 20 6c 61 73 74 |ARDINAL;| (* last|
|00002e40| 20 69 6e 64 65 78 20 69 | 6e 20 67 72 6f 77 20 73 | index i|n grow s|
|00002e50| 70 61 63 65 2e 20 2a 29 | 0d 09 09 09 09 09 09 09 |pace. *)|........|
|00002e60| 67 72 6f 77 53 74 6b 20 | 3a 47 72 6f 77 53 74 61 |growStk |:GrowSta|
|00002e70| 63 6b 3b 0d 09 09 09 09 | 09 09 09 45 4e 44 3b 0d |ck;.....|...END;.|
|00002e80| 0d 09 44 61 74 61 4b 65 | 79 73 48 6e 64 20 3d 20 |..DataKe|ysHnd = |
|00002e90| 50 4f 49 4e 54 45 52 20 | 54 4f 20 44 61 74 61 4b |POINTER |TO DataK|
|00002ea0| 65 79 73 50 74 72 3b 0d | 09 44 61 74 61 4b 65 79 |eysPtr;.|.DataKey|
|00002eb0| 73 50 74 72 20 3d 20 50 | 4f 49 4e 54 45 52 20 54 |sPtr = P|OINTER T|
|00002ec0| 4f 20 41 52 52 41 59 20 | 5b 30 2e 2e 30 5d 20 4f |O ARRAY |[0..0] O|
|00002ed0| 46 20 43 41 52 44 49 4e | 41 4c 3b 0d 09 28 2a 20 |F CARDIN|AL;..(* |
|00002ee0| 63 61 72 64 69 6e 61 6c | 20 70 6f 69 6e 74 73 20 |cardinal| points |
|00002ef0| 74 6f 20 62 6c 6f 63 6b | 20 69 6e 20 64 61 74 61 |to block| in data|
|00002f00| 53 74 61 63 6b 2e 0d 09 | 09 09 69 66 20 70 6f 69 |Stack...|..if poi|
|00002f10| 6e 74 20 62 65 79 6f 6e | 64 20 6d 61 69 6e 20 73 |nt beyon|d main s|
|00002f20| 74 61 63 6b 0d 09 09 09 | 74 68 65 6e 20 63 6f 75 |tack....|then cou|
|00002f30| 6e 74 20 67 72 6f 77 20 | 73 74 61 63 6b 73 20 74 |nt grow |stacks t|
|00002f40| 6f 20 72 65 73 6f 6c 76 | 65 20 6c 6f 6f 6b 75 70 |o resolv|e lookup|
|00002f50| 2e 20 2a 29 0d 09 0d 09 | 44 61 74 61 53 74 61 63 |. *)....|DataStac|
|00002f60| 6b 20 3d 20 50 4f 49 4e | 54 45 52 20 54 4f 20 44 |k = POIN|TER TO D|
|00002f70| 61 74 61 53 74 61 63 6b | 50 74 72 3b 0d 09 44 61 |ataStack|Ptr;..Da|
|00002f80| 74 61 53 74 61 63 6b 50 | 74 72 20 3d 20 50 4f 49 |taStackP|tr = POI|
|00002f90| 4e 54 45 52 20 54 4f 20 | 44 61 74 61 53 74 61 63 |NTER TO |DataStac|
|00002fa0| 6b 52 65 63 3b 0d 09 44 | 61 74 61 53 74 61 63 6b |kRec;..D|ataStack|
|00002fb0| 52 65 63 20 3d 20 52 45 | 43 4f 52 44 0d 09 09 09 |Rec = RE|CORD....|
|00002fc0| 09 09 09 09 63 61 72 64 | 53 69 7a 65 20 3a 43 41 |....card|Size :CA|
|00002fd0| 52 44 49 4e 41 4c 3b 20 | 28 2a 20 63 6f 6e 74 61 |RDINAL; |(* conta|
|00002fe0| 69 6e 73 20 73 69 7a 65 | 20 72 65 71 75 65 73 74 |ins size| request|
|00002ff0| 65 64 20 2b 20 53 49 5a | 45 28 68 65 61 64 65 72 |ed + SIZ|E(header|
|00003000| 29 20 2a 29 0d 09 09 09 | 09 09 09 09 69 6e 69 74 |) *)....|....init|
|00003010| 69 61 6c 43 61 72 64 73 | 20 3a 43 41 52 44 49 4e |ialCards| :CARDIN|
|00003020| 41 4c 3b 0d 09 09 09 09 | 09 09 09 67 72 6f 77 43 |AL;.....|...growC|
|00003030| 61 72 64 73 20 3a 43 41 | 52 44 49 4e 41 4c 3b 0d |ards :CA|RDINAL;.|
|00003040| 09 09 09 09 09 09 09 66 | 69 6c 6c 65 64 43 61 72 |.......f|illedCar|
|00003050| 64 73 20 3a 43 41 52 44 | 49 4e 41 4c 3b 20 28 2a |ds :CARD|INAL; (*|
|00003060| 20 6c 61 73 74 20 69 6e | 64 65 78 20 69 6e 20 69 | last in|dex in i|
|00003070| 6e 69 74 69 61 6c 20 73 | 70 61 63 65 2e 20 2a 29 |nitial s|pace. *)|
|00003080| 0d 09 09 09 09 09 09 09 | 74 6f 74 61 6c 46 69 6c |........|totalFil|
|00003090| 6c 65 64 20 3a 43 41 52 | 44 49 4e 41 4c 3b 20 28 |led :CAR|DINAL; (|
|000030a0| 2a 20 6c 61 73 74 20 69 | 6e 64 65 78 20 6f 66 20 |* last i|ndex of |
|000030b0| 61 6c 6c 20 63 61 72 64 | 73 2e 20 2a 29 0d 09 09 |all card|s. *)...|
|000030c0| 09 09 09 09 09 69 64 43 | 6f 75 6e 74 20 3a 4c 4f |.....idC|ount :LO|
|000030d0| 4e 47 43 41 52 44 3b 0d | 0d 09 09 09 09 09 09 09 |NGCARD;.|........|
|000030e0| 64 61 74 61             |                         |data    |        |
+--------+-------------------------+-------------------------+--------+--------+